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Indicate the MDS series model the program was created on by checking the appropri- 
ate box, and identify other MDS series models the program may be compatible with. 



BIOS AND BOOT PROGRAMS FOR CP/M-80 RUNNNG ON iSBC-80/24 
AND 218 BOARDS 



This package allows CP/M-80 to run on the optimal SBC products. 



iSBC 80/24, iSBX-218, iSBC-064, cardcage, power supply, single 
or double density disk drives (1-4), RS232 monitor, cables. 

CAUTION: -jsBC-218 requires different disk drive jumpering than 

201 and 202. 
Single or double density CP/M system diskette 



BRNCPM.CSD will burn the software into 2 EPR0MS. On reset 
the system will automatically boot up CP/M-80. 



Initializes system, copies EPROM contents into upper RAM, disables 
EPROM, transfers control to CP/M-80. 

Will automatically determine single or double density diskette. 
Allows mixture of diskettes. 



Registers Modified: 



RAM Required: 



HiA. 



MMJL 



ROM Required: 



Utc_ 
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ISIS-II 8080/8085 MACRO ASSEMBLER, 
CP./M BOOTSTRAP FOR SBC-80/24 



V4. 1 



MOBILE PAGE 1 



IOC OBJ 


LINE 




SOURCE STATEMENT 






1 *TITLE('CP/M BOOTSTRAP FOR SBC-80/24') 






2 i 


BIOS LOADER (ROM RESIDENT) PROGRAM 






3 i 

4 ; 
5F 


TO RUN CP/M-80 ON SBC-80/24. 




0200 


iOMCOD 


EQU 


200H 




F200 


6 BOOT 


EQU 


0F200H 




OEOO 


7 E 

8 ; 
9 


OOLEN 


EQU 


OEOOH 




0000 




ORG 







0000 F3 


10 




DI 






0001 110002 


11 




LXI 


D.ROHCOD 


POINT TO WERE MONITOR SITS IN 1 


0004 2100F2 


12 




LXI 


Hi BOOT 


POINT TO START OF WHERE IT GOES 


0007 01000E 


13 




LXI 


B.BOOLEN 


LENGTH OF HOVE 




14 MOVEIT: 








OOOA 1A 


15 




LDAX 


D 


GET SOURCE STRING BYTE 


0O0B77 


16 




MOV 


M.A 


STORE AT DESTINATION 


OOOC 13 


17 




INX 


D 


BUMP SOURCE POINTER 


OOOD 23 


18 




INX 


H 


BUMP DESTINATION POINTER 


OOOEOB 


19 




XX 


B 


DECREMENT COUNT 


OOOF 79 


20 




MOV 


A,C 




0010 BO 


21 




ORA 


B 


TEST COUNT = 


0011 C20A00 


22 
23 i 




JNZ 


MOVEIT 


LOOP IF NOT DONE 


0014 C300F2 


24 
25 
26 




JMP 
END 


BOOT 


JUMP TO DISK BOOTSTRAP 


PUBLIC SYMBOLS 












EXTERNAL SYMBOLS 













USER SYMBOLS 

BOOLEN A OEOO BOOT A F200 MOVEIT A OOOA 



ROMCOD A 0200 



ASSEMBLY COMPLETE, NO ERRORS 



:F4:ASM80 :F5:BI0115. AS« 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



MODULE PAGE 1 



LOC OBJ 



LINE 



SOURCE STATEMENT 



1982 VERSION. ') 

,««XJULXJULltJI 

iiiimiii 



OOF 
FOO 
OOF 
OOF 
OOF 
FOO 
FOO 
OOF 
OOF 



1 iiTITLECCP/M BIOS FOR SBX-218. JANUARY 15, 

2 i*«««HHHHHHHHHHHHHHHHHHHtHHIIIMI»IIH 

;« 

;« CP/M 1 2 BIOS FOR THE INTEL SBC-80/24 AND SBX-218 

;* 



«HHHHHHHHHHHi« H U H « 



OFH 

NOT TRUE 

TRUE 

TRUE 

{DSKINT OR KEYINT) 

FALSE 

FALSE 

TRUE 

TRUE 



3 

4 

5 

6 

7; 

8TRUE EQU 

9 FALSE EQU 

10 DSKINT EQU 

11 KEYINT EQU 

12 INTRBIO EQU 
13CNTLST EQU 

14 0RS EQU 

15 SBX351 EQU 

16 SGLMST ESU 
17 

18 i (0 COPYRIGHT 1981 BY JAMES R. 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



IITTIITTITT 



TRUTHFLAG 

FALSITY FLAG 

INTERRUPT DRIVEN DISK RECOGNITION 

INTERRUPT DRIVEN BIOS CONSOLE INPUT FLAG 

CENTRONICS PARALLEL LIST DRIVER 

OBJECT RECOGNITION SYSTEMS BIOS TYPE FLAG 

SBX-351 LIST DEVICE FLAG 

TRUE IF SINGLE MASTER SYSTEM, ALLOW BUS LOCK. 



6RIER. ALL RIGHTS RESERVED. 



THIS IS A BIOS TO RUN CP/M 2. 2 IN THE ISBC-80/24 ENVIRONMENT. BOTH SINGLE 
AND DOUBLE DENSITY 8" IBM FORMAT DISKS ARE SUPPORTED. DOUBLE-SIDED DRIVES 
ARE NOT CURRENTLY SUPPORTED. 

THE FOLLOWING JUMPER MODIFICATIONS MUST BE HADE TO THE BOARDS: 
ON THE SBC-80/24 

A. CHANGE THE ON-BOARD RAM ADDRESS RANGE TO OFOOOH-OFFFR 
REMOVE JUMPER FROM E154-E155. INSTALL JUMPER AT E150-E151. 

B. SET APPROPRIATE EPROM TYPE THE 0RI6NAL VERSION USES 2716S. 
REMOVE 4-SLOT SHORTING PLUG FROM J8-1. INSTALL AT J8-6. 
REMOVE 1-SLOT SHORTING PLUG FROM J7-7. INSTALL AT J7-6. 

C. CONNECT ON-BOARD PROM ENABLE LINE TO PORT E6 BIT 7 TO ALLOW 
DISABLING OF ON-BOARD EPROM. 

UNWRAP E50-E35. WIREWRAP E50-E54. 

D. CONNECT TERMINAL COUNT LINE ON SBX-218 (OPTO) TO PORT E6 BIT 6 TO 
ENABLE TERMINATION OF DISK READ/WRITE COMMANDS. 

UNWRAP E49-E34. WIREWRAP E49-E185. 
E FOR NON-INTERRUPT DRIVEN SYSTEM: 

CONNECT END-OF-SEEK INTERRUPT LINE FROM SBX-218 TO PORT E6 BIT 
TO ALLOW DETECTION OF THE TERMINATION OF A SEEK. 

UNWRAP E42-E28 AND E42-E40. WIREWRAP E91-E42. 
OR 
FOR INTERRUPT DRIVEN SYSTEM: 

CONNECT END-OF-SEEK INTERRUPT LINE FROM SBX-218 TO IR3 
TO ALLOW DETECTION OF THE TERMINATION OF A SEEK. 

WIREWRAP E91-E99. 

F. INSTALL APPROPRIATE I/O TERMINATION TO DRIVE CENTRONICS PRINTER 
INTERFACE 

INSTALL 7437 DRIVER IN U8. 
INSTALL SBC-901 PULLUP IN U10. 

G. IF INTERRUPT DRIVEN CONSOLE INPUT IS DESIRED, CONNECT RXR TO 
IR6. 

WIREWRAP E117-E96. 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



HODULE PAGE 



LOC OBJ 



LINE 



SOURCE STATEMENT 



003E 
DCOO 
E406 
F200 
0004 
0003 
0004 

F200 



00D5 
0001 
0000 



OOED 
OOED 
OOEC 
OOEC 



55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 



A. SET BOARD FOR NON-DMA OPERATION. 

REMOVE JUMPER FROM Wl-A TO Wl-B. 
INSTALL JUMPER FROM Wl-A TO Wl-C. 

MOUNT THE SBX-218 ON J6 OF THE SBC-80/24. 
CONNECTOR ON THE MIDDLE OF THE BOARD. 



THIS IS THE MULTIMODULE 



THIS BIOS PROGRAM MUST BE USED IN CONJUNCTION WITH THE CP/H PROM BOOT 
PROGRAM WHICH RESIDES ON EPROM ON THE 80/24. THE BOOT PROGRAM COPIES THE 
BIOS OUT OF THE EPROM INTO THE RAM IN UPPER MEMORY, AND JUMPS TO THE COLD 
START ROUTINE IN THE BIOS. THE BIOS TAKES CARE OF HARDWARE INITIALIZATION 
FOR BOTH BOARDS AND BOOTS CP/M. THIS REQUIRES THAT 
THE ON-BOARD RAM BE LOCATED AT THE TOP PAGE THE ON-BQARD RAM IS USED 
IN THE BIOS TO PROVIDE THE SPEED NECESSARY TO HANDLE DOUBLE DENSITY 
TRANSFERS. THE BOOT IS TURNED OF UPON ENTRY INTO THE COLD BOOT ROUTINE 
IN THIS CBIOS TO ENABLE OFF-BOARD RAM AT THE BASE OF MEMORY. 



THE MAXIMUM POSSIBLE CP/M SIZE WITH THIS BIOS IS 62K DUE TO THE EXTENSIVE 
ERROR CHECKING IN THE BIOS. THIS REQUIRES AN SBC-064 OR BETTER, TO PROVIDE 
THE FULL ADDRESS SPACE IN RAM. 



MSIZE EQU 

CCP EQU 

BDOS EQU 

BIOS EQU 

CDISK EQU 

IOBYTE EQU 

NUMDSK EQU 



62 

(MSIZE-7)#1024 

CCP+806H 

CCP+1600H 

0004H 

0003H 

4 



CP/H SIZE IN KB 

BASE OF CCP 

BASE OF BDOS 

BASE OF BIOS 

CURRENT DISK NUMBER 0=A,... 

INTEL I/O BYTE 

THIS IS A TWO DRIVE SYSTEM 



,15=P 



ORG BIOS 



WELCOME TO THE BIOS, FOLKS. . . 



«H 

I/O DEFINITIONS 

JLMJtXAJUtXJtXXJLJLXA 

mram tttttxtt w 



DEFINE THE MULTIBUS CONTROL 
BUSLCK EQU 0D5H 
LOCK EQU 1 
UNLOCK EQU 



BUS LOCK CONTROL PORT 
LOCK BUS 
UNLOCK BUS 



PORT DEFINITIONS FOR 8251A ON 80/24 (SERIAL I/O PORT) 
THIS DEVICE IS THE SYSTEM CONSOLE 



CM8251 EQU 

ST8251 EQU 

RD8251 EQU 

UR8251 EQU 



OEDH 
OEDH 
OECH 
OECH 



IF ORS 

CM51 EQU v 08DH 

ST51 EQU 08DH 

RD51 EQU 08CH 

WR51 EQU 08CH 



COMMAND WORD OUTPUT PORT 
STATUS WORD INPUT PORT 
DATA INPUT PORT 
DATA OUTPUT PORT 



COMMAND WORD OUTPUT PORT 
STATUS WORD INPUT PORT 
DATA INPUT PORT 
DATA OUTPUT PORT 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



MODULE PAGE 



LOC OBJ 



LINE 



SOURCE STATEfENT 



00C1 
00C1 

ooco 
ooco 

00CB 
OOCA 
0008 
0011 
0013 



0027 
OOCE 
0002 
0001 
0004 

00C8 
0007 
0263 
OOOD 
0040 



00D8 
00D8 
00D9 



00D8 
00D9 
0020 
OOOB 

F80 
0096 
OOF 

FB7 



OODF 
OODC 
OODD 
OODE 
00B6 
0000 
0020 
0030 



no 
in , 

112 

113 CMX351 

114 STX351 

115 RDX351 

116 HRX351 

117 CNTCTLX 
118CNTR2X 



ENDIF 

IF 

EQU 

EQU 

EQU 

EQU 

EQU 

EfflJ 



SBX351 

0C1H 

0C1H 

OCOH 

OCOH 

OCBH 

OCAH 

008H 

'Q' - 40H 

'S' - 40H 



119 BX9600 EQU 

120 CTLQ EQU 

121 CTLS EQU 

122 ENDIF 

123 i 

124 ; USART INITIALIZATION CONSTANTS 



COWHAND HORD OUTPUT PORT 

STATUS HORD INPUT PORT 

DATA INPUT PORT 

DATA OUTPUT PORT 

BAUD RATE TIMER CONTROL 

BAUD RATE TIMER 

9600 BAUD CONSTANT 

XON 

XOFF 



125 CUD 

126 MODE 

127 RBR 

128 TRDY 
129TXBE 
130 

131 ONEMS 

132B9600 

133 B0110 

134CHARR 

135 RSTUST 

136 

137 

138 PIC 

139 ICH1 

140 ICH2 

141 0CW2 

142 0CW3 

143 IMR 

144 EOIC 

145 0CW3A 

146 ; 

147 INTVEC 

148 ICH1A 

149 ICH2A 

150 ; 

151 IMASK 
152 
153 
154 



EQU 
EQU 
EQU 
EQU 
EQU 

i 

EQU 
EQU 
EQU 
EQU 
EQU 



027H 

OCEH 

2 

1 

04H 

200 

007D 

611D 

ODH 

040H 



COMMAND INSTRUCTION FOR USART INITIALIZATION 
MODE SET FOR USART INITIALIZATION 
MASK TO TEST RECEIVER STATUS 
MASK TO TEST TRANSMITTER STATUS 
USART TRANSMITTER BYFFER EMPTY 

1 MILLISECOND CONSTANT AT 4. 84 MHZ CLOCK. 

RATE FACTOR FOR 9600 BAUD 

RATE FACTOR FOR 110 BAUD 

CODE FOR BAUD RATE RECOGNITION CHAR = CR 

COMMAND INSTRUCTION TO RESET USART 



PORT DEFINITIONS AND INITIALIZATION CONSTANTS FOR 8259A PIC. 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 



PIC+O 

PIC+1 

PIC 

PIC 

PIC+1 

020H 



BASE ADDRESS 
INITIALIZATION ADDRESS 1 
INITIALIZATION ADDRESS 2 



MASK REGISTER 

END OF INTERRUPT COMMAND HORD 

INTERRUPT OPERATION COMMAND HORD 3 



0FF80H 

(INTVEC AND OEOH) + 16H ; 

INTVEC SHR 8 i 



INTERRUPT COMMAND WORD 1 
INTERRUPT COMMAND HORD 2 



EQU NOT ((KEYINT AND 40H) OR (DSKINT AND 8)) 



PORT DEFINITIONS AND CONSTANTS FOR THE 8253 PIT. COUNTER #2 IS USED 
AS THE BAUD RATE CLOCK FOR THE USART. 



155 TMCP 
156CTR0 
157CTR1 
158 CTR2 
159C2M3 

160 MSVCO 

161 LSVCO 
162C0M0 
163; 

164 ; 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ODFH 

ODCH 

ODDH 

ODEH 

0B6H 



20H 

030H 



INTERVAL TIMER COMMAND PORT 

COUNTER PORT 

COUNTER 1 PORT 

COUNTER 2 PORT 

COUNTER 2 TO MODE 3 COMMAND HORD 

MOST SIGNIFICANT VALUE FOR COUNTER 

LEAST SIGNIFICANT VALUE FOR COUNTER 

COUNTER TO MODE 0; SINGLE STEP C0N1AND HORD 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



MODULE PAGE 



LOC OBJ 



LINE 



SOURCE STATEMENT 



0OE4 
00E5 
00E6 
00E7 



00E8 
00E9 
OOEA 
OOEB 



0080 
OOOD 
OOOC 
OOOE 



F200 C379F2 
F203 C3E4F2 
F206 C323F3 
F209 C327F3 
F20C C366F3 
F20F C370F3 
F212 C397F3 
F215 C399F3 
F218 C39CF3 
F21B C3A2F3 
F21E C3B8F3 
F221 C3BDF3 
F224 C3C5F3 
F227 C3F6F3 
F22A C31AF4 
F22DC396F3 
F230C3C2F3 



165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 



THE #1 PPI (U16 USES THREE BITS ON PORT C FOR SYSTEM CONTROL: 



PORT BIT 



FUNCTION 



0E6H 7 PROM ENABLE (ON-BOARD EPROH ADDRESSING ENABLED IF HIGH) 

0E6H 6 TERMINAL COUNT COMMAND TO FDDC ON SBX-218 

0E6H INTERRUPT FROM END OF SEEK OR RECALIBRATE ON SBX-218. 

THE #2 PPI (U18) USES PORT A FOR DATA OUTPUT TO A CENTRONICS TYPE PRINTER 

TWO BITS ON PORT C OF #2 PPI ARE USED FOR CONTROL: 
OEAH 7 /DATA STROBE 

OEAH /ACKNOWLEDGE 

SETUP PPI #1 FOR PORTS A. B. AND C(HIGH) = OUTPUT, C(LOW) = INPUT. 

SETUP PPI #2 FOR PORT A, B, AND C(HIGH) = OUTPUT, C(LOU) = INPUT. 

PORT DEFINITIONS FOR 8255A NO. 1 ON 80/24 (PARALLEL I/O PORTS) 



179 PORTIA EQU 0E4H 
180PORT1B EQU 0E5H 

181 P0RT1C EQU 0E6H 

182 PT1CTL EQU 0E7H 

183 ; 

184 ; PORT DEFINITIONS FOR 8255A NO. 



READ/WRITE PORT A 
READ/WRITE PORT B 
READ/WRITE PORT C 
COMMAND PORT FOR 8255A 



2 ON 80/24 (PARALLEL I/O PORTS) 



185 P0RT2A EQU 0E8H 

186PORT2B EQU 0E9H 

187P0RT2C EQU OEAH 

188 PT2CTL EQU OEBH 

189; 

190 i SPECIAL MASKS FOR SPECIAL I/O CONTROL LINES 



READ/WRITE PORT A 
READ/WRITE PORT B 
READ/WRITE PORT C 
COMMAND PORT FOR 8255A 



191 ROMMSK EQU 

192 TCON EQU 

193 TCOFF EQU 

194 PRTSTB EQU 
195 
196 
197 
198 

199 WBOOTE: 
200 



80H 
ODH 
OCH 
OEH 



BIT 7 OF P0RT1C TO TURN OF ON-BOARD EPROM 
TERMINAL COUNT COMMAND LINE TO FDCC 
TERMINAL COUNT CANCEL 
PRINTER STROBE ON (LOU ACTIVE) 



JUMP VECTORS FOR INDIVIDUAL SUBROUTINES 



201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 



JKP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 

JnP 

JMP 
JMP 



BOOT 

WBOOT 

CONST 

CONIN 

CONOUT 

LIST 

PUNCH 

READER 

HOME 

SELDSK 

SETTRK 

SETSEC 

SETDHA 

READ 

WRITE 

LISTST 

SECTRAN 



COLD START 
WARM START 
CONSOLE STATUS 
CONSOLE CHARACTER IN 
CONSOLE CHARACTER OUT 
LIST CHARACTER OUT 
PUNCH CHARACTER OUT 
READER CHARACTER OUT 
MOVE HEAD TO HOME POSITION 
SELECT DISK 
SET TRACK NUMBER 
SET SECTOR NUMBER 
SET DMA ADDRESS 
READ DISK 
WRITE DISK 
RETURN LIST STATUS 
SECTOR TRANSLATE 



ROUTINE: PRINTM 

FUNCTION: PRINT OUT MESSAGE TO CONSOLE 

USES: CONOUT 



MESSAGE MUST END WITH ASCII NULL (00) 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



MODULE PAGE 



LOC OBJ 



LINE 



SOURCE STATEMENT 



F233 7E 
F234B7 
F235C8 
F236 4F 
F237 CD66F3 
F23A 23 
F23BC333F2 



F23E OD 
F23F0A 
F240 5342432D 
F244 38302F32 
F248 3420616E 
F24C 64205342 
F250 582D3231 
F254 38204350 
F258 2F4D2032 
F25C 2E322056 
F260 332E30 
F263 20287265 
F267 76697365 
F26B 64203031 
F26F 2F31352F 
F273 383229 
F276 OD 
F277 OA 
F278 00 



F279 3E81 
F27B D3E7 
F27DD3EB 



F27F CD62F8 



F282 F3 
F283 3E96 
F285 D3D8 
F287 3EFF 
F289 D3D9 
F28B 3EB7 



220 ; ARGUMENTS: STRING POINTER IN HL 

221 i RETURNS: 

222 ; DESTROYS: PSU, HL C 
223PRINTM: 



224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234BMSG: DB 



MOV 

ORA 

RZ 

MOV 

CALL 

INX 

JMP 



A,M 
A 

C,A 
CONOUT 
H 
PRINTM 



SIGNON MESSAGE 



ODH. OAH, 'SBC-80/24 AND SBX-218 CP/M 2. 2 V3. 0' 



235 



DB 



(REVISED 01/15/82)', ODH. OAH, 



236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 



BOOTSTRAP OPERATIONS 



« 
« 
« 

^HHHHHHHHHHWWHHHHHHHHHHl 



BOOT: 

; INITIALIZE THE PPIS AND TURNOFF THE EPROM. 

MVI A.81H 

OUT PT1CTL 

OUT PT2CTL i INITIALIZE PORTS AND TURN OFF EPROM 

; INITIALIZE THE 8271 

CALL DKINIT 

i 

; INITIALIZE INTERRUPT CONTROLLER 
DI 

MVI A, ICU1A 

OUT ICW1 

MVI A, ICW2A 

OUT ICW2 

MVI A, IMASK 



ISIS-II 8080/8085 MACRO ASSEMBLER, V4. 1 



MODULE PAGE 



LOC OBJ 

F28DD3D9 
F28FFB 



F290 AF 
F291 D3C1 
F293D3C1 
F295 D3C1 
F297 3E40 
F299D3ED 
F29B 3ECE 
F29DD3ED 
F29F 3E35 
F2A1 D3ED 
F2A3 3EB6 
F2A5D3DF 
F2A7 210700 
F2AA7D 
F2AB D3DE 
F2AD7C 
F2AE D3DE 



F2B0 AF 
F2B1 D3C1 
F2B3DX1 
F2B5D3C1 
F2B7 3E40 
F2B9DX1 
F2BB3ECE 
F2BDDX1 
F2BF 3E35 
F2C1 D3C1 
F2C3 3EB6 
F2C5D3CB 
F2C7 210800 
F2CA 7D 
F2CBD3CA 
F2CD 7C 
F2CED3CA 



LINE 

258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 



SOURCE STATEMENT 



OUT 
EI 



IKR 



INITIALIZE THE CONSOLE PORT AT 9600 BAUD. 



XRA 
OUT 
OUT 
OUT 
HVI 
OUT 
HVI 
OUT 
HVI 
OUT 
MVI 
OUT 
LXI 
MOV 
OUT 
MOV 
OUT 



A 

CMX351 

CMX351 

CMX351 

A.RSTUST 

CM8251 

A, (MODE OR 80H) 

CM8251 

A.35H 

018251 

A.C2M3 

TMCP 

H.B9600 

A.L 

CTR2 

A,H 

CTR2 



IF ORS 

; IF THIS IS THE ORS BIOS, INITIALIZE THE SECOND SERIAL PORT. 



XRA 


A 


OUT 


CM51 


OUT 


CM51 


OUT 


CM51 


MVI 


A.RSTUST 


OUT 


CM51 


MVI 


A, (MODE OR 80H) 


OUT 


CM51 


MVI 


A.35H 


OUT 


CM51 



ENDIF 



IF SBX351 

i IF THIS IS THE SBX-351 BIOS, INITIALIZE THE SECOND SERIAL PORT. 



XRA 


A 


OUT 


CMX351 


OUT 


CMX351 


OUT 


. CMX351 


MVI 


A,RSTUST 


OUT 


CMX351 


MVI 


A, (MODE OR 80H) 


OUT 


CMX351 


MVI 


A,35H 


OUT 


CMX351 


MVI 


A.C2H3 


OUT 


CNTCTLX 


LXI 


H, BX9600 


MOV 


A,L 


OUT 


CNTR2X 


MOV 


A,H 


OUT 


CNTR2X 
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MODULE 


PAGE 7 


LOC OBJ 


LINE 




SOURCE STATEMENT 






313 ENDIF 










314 ; 












315 ; 


NOW COMES THE TIME TO COLD BOOT CP/M. WE NEED TO READ ONLY THE CCP AND BDOS, 




316 ; 


BECAUSE THE BIOS HAS ALREADY BEEN LOADED. 


F2D0 AF 


317 




XRA 


A i 


ZERO IN THE ACCUM 




318 i 




STA 


IOBYTE i 


CLEAR THE IOBYTE 


F2D1 320400 


319 




STA 


CDISK ; 


SELECT DISK ZERO 


F2D4 213EF2 


320 




LXI 


H,BMSG 




F2D7 CD33F2 


321 
322 ; 




CALL 


PRINTM ; 


PRINT SI6N0N MESSAGE 




323 ; 


INITIALIZE DEBLOCKING ALGORITHM 


F2DA AF 


324 




XRA 


A 




F2DB 32B9F6 


325 




STA 


HSTACT 




F2DE32BBF6 


326 




STA 


UNACNT 




F2E1 32BAF6 


327 
328 ; 




STA 


HSTWRT 






329 ; 


WARM BOOT. COME HERE ON CTL-C AS WELL 




330 WBOOT: 








F2E4 3162F8 


331 




LXI 


SP.STKTOP 


USE SPACE IN BUFFER FOR STACK 




332 ; 


INITIALIZE THE PPIS AND TURNOFF THE EPROM. 


F2E7 3E81 


333 




MVI 


A,81H 




F2E9 D3E7 


334 




OUT 


PT1CTL 




F2EBD3B 


335 
336 i 




OUT 


PT2CTL 


INITIALIZE PORTS AND TURN OFF EPROM 




337 IF 


SGLMST 








338 ; 


THIS IS AN OPTIONAL MANEUVER, 


WD CAN NOT BE USED IF OTHER BUS MASTERS RESIDE 




339 ; 


IN THE SYSTEf 


: ASSERT BUS LOCK. 




F2ED3E01 


340 




MVI 


A,l 




F2EF D3D5 


341 




OUT 


BUSLCK 






342 ENDIF 










343 ; 












344 ; 












345 ; 


SETUP JUMP AT TO WBOOT 




F2F1 3EC3 


346 




MVI 


A,0C3H 


C3 IS THE JUMP INSTRUCTION 


F2F3 320000 


347 




STA 





, STORE IT AT 


F2F6 2103F2 


348 




LXI 


H,WBO0TE 


, SET IN THE VECTOR 


F2F9 220100 


349 
350 , 




SHLD 


1 


; AND STORE IT 




351 , 


DO THE SAME FOR THE JUMP VECTO! 


R TO BDOS AT 5 


F2FC 320500 


352 




STA 


5 


i STORE JUMP INSTRUCTION 


F2FF 2106E4 


353 




LXI 


H.BDOS 


i GET VECTOR 


F302 220600 


354 
355 , 




SHLD 


6 


i STORE THE JUMP INSTRUCTION 


F305 018000 


356 




LXI 


B,80H 


; SET THE DEFAULT DMA ADDRESS = 80H 


F308CDC5F3 


357 
358 , 




CALL 


SETDMA 




F30B CD9DF9 


359 
360 , 




CALL 


SNIFF 


; SNIF FOR READY DRIVES 




361 


RELOAD CP/M 






F30E OEOO 


362 




MVI 


CO 




F310 CDA2F3 


363 




CALL 


SELDSK 


i BOOT FROM DRIVE 


F313 CD9CF3 


364 




CALL 


HOME 




F316 CDA3F8 


365 




CALL 


RECAL 




F319 CD5AF9 


366 




CALL 


BOOTCPM 






367 


END OF LOAD OPERATION, SET PAR 


AHETERS AND GO TO CP/M 
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MODULE PAGE 8 



LOC OBJ 



line 



SOURCE STATEMENT 



F31C 3A0400 
F31F 4F 
F320C300DC 



$EJECT 



368 60CPM: 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 



LDA CDISK i GET CURRENT DISK NUMBER 

MOV C,A ; LOAD IT UP 

JHP CCP ; AND AWAY WE GO TO CPMLAND 



Iff f ft I f t ttf f ft f f tf I VI f If f Vttf f If f f ttvf tvf 

* * 

* NON-DISK I/O HANDLERS * 

t t 

IF NOT KEYINT 

; THE CONSOLE ROUTINES UTILIZE THE! 8251A PCI. 

» BAUD RATE INITIALIZATION FOR THE PCI IS HANDLED IN THE BOOT PROM PROGRAM. 

, THE READER/PUNCH ROUTINES ARE UNIMPLEHENTED. 

j CONSOLE STATUS, RETURN OFFH IF CHARACTER READY, 00 IF NOT 

; THIS ROUTINE ALSO OCCASIONALLY (EVERY 65K TRIES) CHECKS THE READY STATUS 

; OF THE DRIVES TO SEE IF A DISK IS BEING CHANGED. 



388 CONST: 

389 

390 

391 

392 

393 

394 

395 

396 NTSTCT: 

397 

398 

399 

400 

401 

402 

403 

404 ; 

405 ; 
406 
407 
408 
409 
410 
411 



LHLD 

OCX 

MOV 

ORA 

SHLD 

JNZ 

CALL 

IN 

RAR 

RAR 

MVI 

RNC 

MVI 

RET 



COUNTR 

H 

A,L 

H 

COUNTR 

NTSTCT 

TSTRDY 

ST8251 



A,0 



A, OFFH 



DON'T CHECK READY EXCEPT UHEN WANTED 
OK, DO IT. 



ROUTINE: CONIN 

FUNCTION: CONSOLE CHARACTER INTO REGISTER A 

USES: CONST, CONIN 

ARGUMENTS: 

RETURNS: CHARACTERS A 

DESTROYS: PSW 



412 CONIN: 

413 

414 

415 

416 

417 

418 

419 ; 

420 ININT 
421 

422 i 



CALL 

ORA 

JZ 

IN 

ANI 

RET 

EQU 

ENDIF 



CONST 

A 

CONIN 

RD8251 

7FH 



BOOT 



STRIP PARITY BIT 



MASK OF INPUT INTERRUPT 
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MODULE 
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LOC OBJ 


LINE 




SOURCE STATEMENT 






423 




IF 


KEYINT 






424 i 












425; 


ROUTINE: CONST 






426 ; 


FUNCTION: CONSOLE STATUS CHECK 






427 ; 


USES: 


TSTRDY 








428 ; 


ARGUMENTS: 








429 ; 


RETURNS: A = 


F IF INPUT READY 






430 ; 


DESTROYS: PSW 


, BC, HL 






431 ; 


THE CONSOLE ROUTINES UTILIZE THE 8251A PCI. 




432 ; 


BAUD RATE INITIALIZATION FOR THE PCI IS HANDLED IN THE BOOT PRC 




433 ; 


THE READER/PUNCH ROUTINES ARE UNIMPLEMENTED. 




434 ; 


CONSOLE STATUS, RETURN OFFH IF CHARACTER READY, 00 IF NOT 




435 CONST: 








F323 3A65F3 


436 




LDA 


RBIPTR + 1 


LOAD INPUT POINTER 


F326C9 


437 
438; 




RET 








439; 


ROUTINE: CONIN 






440; 


FUNCTION: CONSOLE CHARACTER INTO REGISTER A 




441 ; 


USES: 


CONST, 


CONIN 






442 ; 


ARGUMENTS: 








443; 


RETURNS: CHARACTERS A 






444 ; 


DESTROYS: PSH 








445 CONIN: 










446 C0NIN1: 








F327 CD23F3 


447 




CALL 


CONST 




F32AB7 


448 




ORA 


A 




F32B CA27F3 


449 




JZ 


C0NIN1 




F32E 2A64F3 


450 




LHLD 


RBIPTR 




F331 2600 


451 




MVI 


H,0 




F333 2264F3 


452 




SHLD 


RBIPTR 


GET DATA - ERASE INPUT FLAG 


F336 7D 


453 




MOV 


A, I 




F337 C9 


454 
455 




RET 








456 , 


CONSOLE INTERRUPT SERVICE ROUTINE 




457 ININT: 








F338F5 


458 




PUSH 


PSW 




F339E5 


459 




PUSH 


H 




F33ADBEC 


460 




IN 


RD8251 


GET INPUT 


F33CE67F 


461 




Mil 


7FH 


STRIP PARITY 


F33EFB 


462 




EI 




CHARACTER IN - RESET INTERRUPT 


F33F 6F 


463 
464 




MOV 


LA 


SAVE NEW CHAR 


F340 DBED 


465 




IN 


ST8251 




F342E640 


466 




ANI 


40H 




F344CA57F3 


467 
468 




JZ 


NOBRK 


JUMP IF NO BREAK 




469BREAKK 








F347DBED 


470 




IN 


ST8251 




F349 E640 


471 




ANI 


40H 


MASK FOR BREAK DETECT BIT 


F34B DBEC 


472 




IN 


RD8251 


WASTE INPUT 


F34D C247F3 


473 




JNZ 


BREAKK 


LOOP IF BREAK 


F350 3E20 


474 




MVI 


A,EOIC 




F352 D3D8 


475 




OUT 


0CW2 




F354C30000 


476 
477 




JttP 





; BOOT WHEN DONE 
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LOC OBJ 



F357 26FF 
F359 2264F3 
F35C 3E20 
F35ED3D8 
F360E1 
F361 Fl 
F362 C9 

F363 00 
F364 0000 



F366 DEED 
F368 IF 
F369 D266F3 
F36C79 
F36D D3EC 
F36FC9 



LINE 



478 NOBRK: 



SOURCE STATEMENT 



479 



481 
482 
483 
484 
485 

486 ; 

487 OLDCHAR:DB 

488 RBIPTR: DU 



MVI 

SHLD 

MVI 

OUT 
POP 
POP 
RET 



H.TRUE 

RBIPTR 

A.EOIC 

0CU2 

H 

PSH 



SAVE CHARACTER, SET CHARACTER READY FLAG 



ENDIF 



PREVIOUS CHARACTER 

INPUT RING BUFFER INSERT POINTER 



ROUTINE: 

FUNCTION: CONSOLE CHARACTER OUTPUT FROM REGISTER C 

USES: 

ARGUMENTS: CHARACTER IN C 

RETURNS: 

DESTROYS: PSH 



489 

490 

491 

492 

493 

494 

495 

496 

497C0N0UT: 

498 

499 

500 

501 

502 

503 

504; 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 ; 

518 ; N. B. 

519 LIST: 
520 



IN 

RAR 

JNC 

MOV 

OUT 

RET 



ST8251 

CONOUT 

A,C 

UR8251 



CNTLST 



IF 
ROUTINE: LIST 

FUNCTION: LIST CHARACTER FROM REGISTER C 
USES: LISTST 

ARGUMENTS: CHARACTER IN C 
RETURNS: 
DESTROYS: PSH 

THE LIST ROUTINE WORKS OF THE SECOND 8255A, COMING OUT ON J2. THIS 
INTERFACE ASSUMES THE CENTRONICS PARALLEL INTERFACE, AND USES ALL OF 
P0RT2A FOR DATA, P0RT2C BIT FOR THE /READY LINE, AND P0RT2C BIT 7 
FOR THE /STROBE LINE. 



FOR THE USER: THIS ROUTINE HAS NEVER BEEN TESTED! ! ! 



521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 



CALL 

JNZ 

MOV 

OUT 

MVI 

OUT 

INR 

OUT 

RET 



LISTST 

LIST 

A,C 

P0RT2A 

A,PRTSTB 

PT2CTL 

A 

PT2CTL 



GET LIST STATUS 

LOOP UNTIL READY 

CHARACTER TO REGISTER A 

OUTPUT PRINTER DATA BYTE TO PORT 1A 

GET PRINTER STROBE WORD 

TURN OFF STROBE 



ROUTINE: LISTST 

FUNCTION: RETURN LIST STATUS (0 IF NOT READY, 1 IF READY) 

USES: 
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.OC OBJ 


LINE 


SOURCE STATEMENT 




533 ; 


ARGUMENTS: 




534; 


RETURNS: STATUS IN A 




535; 


DESTROYS: PSH 




536 LISTST: 




537 


IN P0RT1C 




538 


ANI 1 




539 


RET 




540 ; 






541 


ENDIF 




542 ; 






543 ; 






544 


IF ORS 




545 ; 


ROUTINE: LIST 




546 ; 


FUNCTION: LIST CHARACTER 




547 ; 


USES: 




548 ; 


ARGUMENTS: CHARACTER IN C 




549 ; 


RETURNS: 




550; 


DESTROYS: PSH 




551 ; 


ORS CONFIGURATION FOR USE OF NSC BLC-104 CARD SERIAL PORT TO DRIVE RS-232C 




552; 


PRINTER INTERFACE. 




553 LIST: 




554 


IN ST51 




555 


RAR 




556 


JNC LIST 




557 


MOV fcC 




558 


OUT HR51 




559 


RET 




560; 






561 ; 


ROUTINE: LISTST 




562; 


FUNCTION: 




563 ; 


USES: 




564 ; 


ARGUMENTS: 




565 ; 


RETURNS: 




566 ; 


DESTROYS: 




567 LISTST: 




568 


RET 




569 ; 






570 


ENDIF 




571 ; 






572 


IF SBX351 




573 ; 


ROUTINE: LIST 




574 i 


FUNCTION: LIST CHARACTER 




575 i 


; USES: 




576 i 


i ARGUMENTS: CHARACTER IN C 




577 i 


i RETURNS: 




578 i 


i DESTROYS: PSH 




579 i 


i SBX-351 CONFIGURATION FOR USE OF SBX-351 CARD SERIAL PORT TO DRIVE RS-232C 




580 , 


i PRINTER INTERFACE. SUPPORTS XON/XOFF PROTOCOL 




581 LIST: 


F370 DBC1 


582 


IN STX351 


F372 E602 


583 


ANI RBR 


F374 CA8CF3 


584 


JZ NORCVE ; SKIP IF NO REVERSE CHANNEL STUFF 


F377 DBCO 


585 


IN RDX351 


F379 FE13 


586 


CPI CTLS ; IS INPUT CTL-S (XOFF)? 


F37B C28CF3 


587 


JNZ NORCVE ; JUMP PAST IF NOT 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



F37E DBC1 
F380 E602 
F382CA7EF3 
F385DBC0 
F387 FEU 
F389C27EF3 



F38C DBC1 
F38E IF 
F38F D28CF3 
F392 79 
F393D3C0 
F395C9 



F396C9 



F397 79 
F398C9 



F399 3E1A 
F39BC9 



NORCVE: 



588 UTCTLQ: 

589 

590 

591 

592 

593 

594 

595 i 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 



IN 

ANI 

JZ 

IN 

CPI 

JNZ 



IN 

RAR 

JNC 

mov 

OUT 
RET 



STX351 

RBR 

UTCTLQ 

RDX351 

CTLQ 

UTCTLQ 



STX351 

NORCVE 

A,C 

HRX351 



WAIT FOR NEXT CHARACTER (SHOULD BE XON) 

LOOP TIL IT COMES 
TEST CHARACTER 
IS IT CTL-Q (XON) ? 
LOOP BACK IF NOT 



TEST FOR TX READY 

WAIT TIL SO 
GET CHARACTER 
SEND IT 



i ROUTINE: LISTST 

; FUNCTION: 

i USES: 

; ARGUMENTS: 

; RETURNS: 

; DESTROYS: 

LISTST: 

RET 
i 

ENDIF 



ROUTINE: PUNCH 

FUNCTION: PUNCH CHARACTER FROM REGISTER C 

USES: 

ARGUMENTS: CHARACTER IN C 

RETURNS: 

DESTROYS: PSU 



PUNCH: 



MOV A.C ; CHARACTER TO REGISTER A 
RET i NULL SUBROUTINE 



ROUTINE: READER 

FUNCTION: READ CHARACTER INTO REGISTER A FROM READER DEVICE 

USES: 

ARGUMENTS: 

RETURNS: 1AH IN A 

DESTROYS: PSU 



MVI 
RET 



A, 1AH i ENTER END OF FILE FOR NOW (REPLACE LATER) 



ROUTINE: HOME 

FUNCTION: SET CURRENT DRIVE TRACK NUMBER = 

USES: SETTRK 

ARGUMENTS: 

RETURNS: 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



F39C OEOO 
F39E CDB8F3 
F3A1 C9 



F3A2 210000 
F3A5 79 
F3A6 32AFF5 
F3A9FE04 
F3AB DO 



F3AC6F 
F3AD 2600 
F3AF29 
F3B0 29 
F3B1 29 
F3B2 29 
F3B3 1137F5 
F3B6 19 
F3B7C9 



F3B8 79 
F3B9 32B0F5 
F3BCC9 



F3BD 79 
F3BE 32B1F5 
F3C1 C9 



643 i DESTROYS: C, PSH 

644 i DOES NOT PERFORM ACTUAL l€AD MOVEMENT 

645 HOME: 



646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



MVI 

CALL 

RET 



CO 
SETTRK 



SELECT TRACK 



HE yiLL MOVE TO 00 ON FIRST READ/WRITE 



ROUTINE: SELDSK 

FUNCTION: SELECT DRIVE, TEST FOR VALID DRIVE 

USES: 

ARGUMENTS: DRIVE NUMBER IN C 

RETURNS: HL = IF INVALID DRIVE, ELSE HL = ADDRESS OF DRIVE PARAMETER BLOCK 

DESTROYS: PSH, C, DE, HL 



656 SELDSK: 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 



LXI 

MOV 
STA 
CPI 
RNC 



H.O000H 
A,C 
DISKNO 
NUMDSK 



LOAD ERROR CODE AND ANTICIPATE FAILURE (PESSIMISM) 



SAVE DESIRED DISK NO FOR REFERENCE 
MUST BE BETWEEN AND NUMDSK-1 
NO CARRY IF >= NUMDSK 
DISK NUMBER IS IN THE PROPER RANGE 
COMPUTE PROPER DISK PARAMETER HEADER ADDRESS 



MOV L,A i L=OISK NUMBER 0, 1,2,3 

MVI H.0 ; HIGH ORDER ZERO 

DAD H ; *2 

DAD H ; *4 

DAD H ; «8 

DAD H ; *16 (SIZE OF EACH HEADER) 

UI D.DPBASE 

DAD D ; HL=. DPBASE(DISKNO# 16) 

RET 



ROUTINE: SETTRK 

FUNCTION: SET TRACK GIVEN BY REGISTER C 

USES: 

ARGUMENTS: TRACK NUMBER IN C 

RETURNS: 

DESTROYS: PSH 

DOES NOT MOVE HEAD 



682 SETTRK: 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 



MOV 
STA 
RET 



A,C 
TRACK 



ROUTINE: SETSEC 

FUNCTION: SET SECTOR GIVEN BY REGISTER C 

USES: 

ARGUMENTS: SECTOR NUMBER IN C 

RETURNS: 

DESTROYS: PSH 



694 SETSEC: 
695 
696 
697 



MOV 
STA 
RET 



A,C 
SECTOR 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



F3C2 60 
F3C3 6? 
F3C4C9 



F3C5 69 
F3C6 60 
F3C7 22B2F5 
F3CAC9 



FXB 3E80 
F3CD 32E2FD 
F3D0 3AAFF5 
F3D3 32D6FD 
F3D6 3AB0F5 
F3D9 32D7FD 
F3DC 3AB1F5 
F3DF 32D8FD 
F3E2C9 



698 
699 
700 
701 
702 
703 
704 



ROUTINE: SECTRAN 

FUNCTION: TRANSLATE THE SECTOR GIVEN BY BC USING THE TABLE GIVEN BY DE 

USES: 

ARGUMENTS: BC, DE 

RETURNS: HL = BC 

DESTROYS: HL 

705 SECTRAN: 

706 ; THIS IS A NULL ROUTINE. DO NOTHING BUT RETURN LOGICAL AS PHYSICAL THE ACTUAL 
TRANSLATION IS DONE JUST BEFORE DISK TRANSFER THIS IS NECCESSARY DUE TO THE 
USE OF THE SECTOR DEBLOCKING ALGORITHM. 



707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



MOV 
MOV 
RET 



H,B 
LC 



ROUTINE: SETDMA 

FUNCTION: SET DMA ADDRESS GIVEN BY REGISTER BC 

USES: 

ARGUMENTS: 

RETURNS: 

DESTROYS: HL 



DMA ADDRESS IN BC 



720 SETDMA: 

721 

722 

723 

724 

725 i 

726; 

727 

728 

729 

730 

731 

732 

733 

734 



MOV 
MOV 
SHLD 
RET 



LC i LOU ORDER ADDRESS 
HB ; HIGH ORDER ADDRESS 
DMAADR i SAVE THE ADDRESS 



ROUTINE: STSNGL 

FUNCTION: SET DISK PARAMETERS 

USES: 

ARGUMENTS: 

RETURNS: 

DESTROYS: PSW 

SET ENTRY VALUES OF DISK, TRACK, AND SECTOR INTO THE SPOTS USED BY THE 

ACTUAL ROUTINE THIS IS NECESSITATED BY THE DEBLOCK PROCEDURE FOR DD. 



735 STSNGL: 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 ; 

747 

748 

749 

750 

751 

752 



MVI 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RET 



A.80H 

DNSTYP 

DISKNO 

RUNDSK 

TRACK 

RUNTRK 

SECTOR 

RUNSEC 



SET DENSITY TYPE FOR TRANSFER ROUTINE 



ROUTINE: STDBL 

FUNCTION: SET DISK PARAMETERS 

USES: 

ARGUMENTS: 

RETURNS: 

DESTROYS: PSW 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



F3E3 3AB5F5 
F3E6 32D6FD 
F3E9 3AB6F5 
F3EC32D7FD 
F3EF3AB7F5 
F3F2 32D8FD 
F3F5 C9 



0800 
0100 
001A 
0002 
0034 
0001 
0001 



0000 
0001 
0002 



F3F6 CD33FA 
F3F9 C206F4 

F3FC CDCBF3 
F3FF CD52FA 
F402 3ABFF6 
F405 C9 



F406 AF 
F407 32BBF6 



753 ; SET ENTRY VALUES OF DISK, TRACK, AND SECTOR INTO THE SPOTS USED BY THE 

754 ; ACTUAL ROUTINE THIS IS NECESSITATED BY THE DEBLOCK PROCEDURE FOR DD. 
755STDBL: 



i»EJECT 



756 
757 
758 
759 
760 
761 
762 

763 i 

764 i 

765 ; 

766 ; 

767 ; 
768; 
76? ; 

770 ; 

771 ; 

772 ; 

773 BLKSIZ 

774 HSTSIZ 
775HSTSPT 

776 HSTBLK 

777 CPMSPT 
778SECHSK 
779SECSHF 
780 



LDA 
STA 
LDA 
STA 
LDA 
STA 
RET 



HSTDSK 
RUNDSK 
HSTTRK 
RUNTRK 
HSTSEC 
RUNSEC 



* 



fVfffftVTTlvltffTVVfTTtl 

* 
CP/H READ AND WRITE * 

t 

IIUXTII 



CP/H TO HOST DISK CONSTANTS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



2048 

256 

26 

HSTSIZ/128 

HSTBLK * HSTSPT 

HSTBLK-1 

1 



CP/H ALLOCATION SIZE 
HOST DISK SECTOR SIZE 
HOST DISK SECTORS/TRK 
CP/H SECTS/HOST BUFF 
CP/H SECTORS/TRACK 
SECTOR MASK 
L0G2(HSTBLK) 



781 
782 

783 WRALL 

784 WRDIR 

785 WRUAL 
786 
787 
788 
789 
790 
791 
792 
793 
794 



BDOS CONSTANTS ON ENTRY TO WRITE 



EQU 
EQU 
EQU 



WRITE TO ALLOCATED 
WRITE TO DIRECTORY 
WRITE TO UNALLOCATED 



READ A 128 BYTE SECTOR FOR CP/M. SINGLE AND DOUBLE DENSITY MUST BE PERFORMED 
IN DIFFERENT WAYS. SINGLE DENSITY IS FAIRLY TRIVIAL, SINCE IT USES A 128 
BYTE SECTOR. DOUBLE DENSITY IS NO FUN AT ALL, SINCE 256 BYTE SECTORS ARE 
USED. THEREFORE, THE DEBLOCKING ALGORITHM FROM THE CP/H 2. 2 ALTERATION 
GUIDE IS USED FOR DOUBLE DENSITY TRANSFERS. FOR FURTHER EXPLANATION OF THIS 
AMAZING FEAL SEE THE ABOVE MENTIONED GUIDE. 



795 READ: 
796 



CALL 
JNZ 



GDNSTY 
READ2 



TEST THE DENSITY 
JUMP IF DOUBLE DENSITY 



797 

798 ; 

799 CALL STSNGL 

800 CALL RDSST 

801 LDA ERFLAG 

802 RET 

803 ; 
804READ2: 

805 ; READ THE SELECTED DOUBLE DENSITY CP/M SECTOR 

806 XRA A 

807 STA UNACNT 



MOVE IN SINGLE DENSITY PARAMETERS 
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MODULE PAGE 16 



LOG OBJ 


LINE 




SOURCE STATEMENT 




F40A3E01 


808 




MVI 


A,l 




F40C 32C2F6 


809 




STA 


READOP ; 


READ OPERATION 


F40F 32C1F6 


810 




STA 


RSFLAG ; 


MUST READ DATA 


F412 3E02 


811 




MVI 


A.HRUAL 




F414 32C3F6 


812 




STA 


HRTYPE ; 


TREAT AS UNALLOC 


F417 C398F4 


813 
814 




JMP 


RWOPER ; 


TO PERFORM THE READ 




815 


HRITE A CP/M SECTOR. SEE NOTES FOR READ, ABOVE THEY BASICAl 




816 


TOO. 


UPON ENTRY, THE C REG CONTAINS FOR NORMAL WRITE, 1 If 




817 


OR 2 IF HRITE TO UNALLOCATED. 






818 


HRITE: 








F41AC5 


81? 




PUSH 


B 


SAVE CONTENTS IN C 


F41B CD33FA 


820 




CALL 


GDNSTY 


TEST DENSITY OF DRIVE 


F41E CI 


821 




POP 


B 


RECOVER C 


F41F C22CF4 


822 
823 


' 


JNZ 


WRITE2 


JUMP IF DOUBLE DENSITY 


F422 CDCBF3 


824 




CALL 


STSNGL 


ELSE SAVE SINGLE PARAMETERS 


F425 CD4AFA 


825 




CALL 


HRTSST 


HRITE SINGLE DENSITY 


F428 3ABFF6 


826 




LDA 


ERFLA6 


FLAG 


F42BC9 


827 
828 
829 


* 

mm 


RET 








830 


i WRITE THE SELECTED DOUBLE DENSITY CP/M SECTOR 


F42C AF 


831 




XRA 


A 


TO ACCUMULATOR 


F42D32C2F6 


832 




STA 


READOP 


NOT A READ OPERATION 


F430 7? 


833 




MOV 


A,C 


HRITE TYPE IN C 


F431 32C3F6 


834 




STA 


HRTYPE 


SAVE NOW 


F434FE02 


835 




CPI 


URUAL 


HRITE UNALLOCATED? 


F436C250F4 


836 
837 


i 


JNZ 


CHKUNA 






838 


; HRITE TO UNALLOCATED; SET PARA! 


METERS 


F439 3E10 


839 




MVI 


A.BLKSIZ/128 




F43B 32BBF6 


840 




STA 


UNACNT 




F43E3AAFF5 


841 




LDA 


DISKNO 


i DISK TO SEEK 


F441 32BCF6 


842 




STA 


UNADSK 


; UNADSK = DISKNO 


F444 2AB0F5 


843 




LHLD 


TRACK 




F447 22BDF6 


844 




SHLD 


UNATRK 


i UNATRK = TRACK 


F44A 3AB1F5 


845 




LDA 


SECTOR 




F44D 32BEF6 


846 
847 
848 


i 
CHKUNA 


STA 


UNASEC 


; UNASEC = SECTOR 




849 


; CHECK FOR HRITE TO UNALLOCATED 


SECTOR 


F450 3ABBF6 


850 




LDA 


UNACNT 


i ANY UNALLOC REMAIN? 


F453B7 


851 




ORA 


A 




F454 CA90F4 


852 
853 


J 


JZ 


ALLOC 


; SKIP IF NOT 




854 


; MORE UNALLOCATED RECORDS REMAI 


N 


F457 3D 


855 




DCR 


A 


i UNACNT = UNACNT-1 


F458 32BBF6 


856 




STA 


UNACNT 




F45B3AAFF5 


857 




LDA 


DISKNO 


; SAME DISK? 


F45E 21BCF6 


858 




UI 


H, UNADSK 




F461 BE 


859 




CMP 


M 


i DISKNO = UNADSK? 


F462C290F4 


860 
861 


i 


JNZ 


ALLOC 


; SKIP IF NOT 




862 


i DISKS ARE THE SAME 





1 IF DIRECTORY HRITE, 
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MODULE 


PAGE 17 


LOC OBJ 


LINE 




SOURCE STATEMENT 




F465 3AB0F5 


863 




LDA 


TRACK 




F468 21BDF6 


864 




LXI 


H,(JNATRK 




F46BBE 


865 




CMP 


H ; 


TRACK = UNATRK? 


F46CC290F4 


866 
867 ; 




JNZ 


ALLOC ; 


SKIP IF NOT 




868 i 


TRACKS ARE THE SAME 




F46F3AB1F5 


869 




LDA 


SECTOR ; 


SAME SECTOR? 


F472 21BEF6 


870 




LXI 


H,UNASEC 




F475BE 


871 




CMP 


H 


SECTOR = UNASEC? 


F476 C290F4 


872 
873 i 




JNZ 


ALLOC 


SKIP IF NOT 




874 i 


MATtt 


1, MOVE TO NEXT SECTOR FOR FUTURE REF 


F479 34 


875 




INR 


H 


UNASEC = UNASEC+1 


F47A7E 


876 




MOV 


A,M 


END OF TRACK? 


F47B FE34 


877 




CPI 


CPMSPT 


COUNT CP/M SECTORS 


F47D DA89F4 


878 
879; 




X 


NOOVF 


SKIP IF NO OVERFLOW 




880; 


OVERFLOW TO NEXT TRACK 




F480 3600 


881 




MVI 


H,0 


UNASEC = 


F482 2ABDF6 


882 




LHLD 


UNATRK 




F485 23 


883 




INX 


H 




F486 22BDF6 


884 
885 ; 




SHLD 


UNATRK 


UNATRK = UNATRK+1 




886N00VF: 










887, 


MATCH FOUND, 


MARK AS UNNECESSAI 


WREAD 


F489 AF 


888 




XRA 


A 


TO ACCUMULATOR 


F48A 32C1F6 


889 




STA 


RSFLAG 


RSFLAG = 


F48DC398F4 


890 

891 , 




JMP 


RWOPER 


TO PERFORM THE MUTE 




892 ALLOC: 










893 , 


NOT AN UNALLOCATED RECORD, REQI 


JIRES PRE-READ 


F490 AF 


894 




XRA 


A 


OTO ACCUM 


F491 32BBF6 


895 




STA 


UNACNT 


UNACNT = 


F494 3C 


896 




INR 


A 


1 TO ACCUM 


F495 32C1F6 


897 
898 




STA 


RSFLAG 


RSFLAG = 1 




899 


* W * ******* ftTf StltfXIl tffftffti 


nmHiimiiiiiHHH 




900 


« 






* 




901 


« 


COMMON CODE FOR READ AND 


WRITE FOLLOWS « 




902 


« 






* 




903 


tttiUHHHHHHlHIIUIHUH 


HmiH»tl«HHHHHHHt 




904RW0PER 










905 




; ENTER HERE TO PERFORM 


THE READ/WRITE 


F498 AF 


906 




XRA 


A 


i ZERO TO ACCUM 


F499 32BFF6 


907 




STA 


ERFLAG 


; NO ERRORS (YET) 


F49C32E2FD 


908 




STA 


DNSTYP 


; SET DENSITY TYPE FLAG FOR TRANSFER ROUTINE 


F49F 3AB1F5 


909 




LDA 


SECTOR 


; COMPUTE HOST SECTOR 


F4A2B7 


910 




ORA 


A 


; CARRY = 


F4A3 IF 


911 




RAR 




; SHIFT RIGHT 


F4A4 32B8F6 


912 
913 




STA 


SEKHST 


; HOST SECTOR TO SEEK 




914 


, ACTIVE HOST SECTOR? 




F4A7 21B9F6 


915 




LXI 


H.HSTACT 


; HOST ACTIVE FLAG 


F4AA 7E 


916 




MOV 


A,H 




F4AB3601 


917 




MVI 


H,l 


; ALWAYS BECOMES 1 
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LOC OBJ 


LINE 


SOURCE STATEMENT 




F4ADB7 


918 


ORA 


A ; 


HAS IT ALREADY? 


F4AECAD6F4 


919 
920 ; 


JZ 


FILHST ; 


FILL HOST IF NOT 




921 ; 


HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? 


F4B1 3AAFF5 


922 


LOA 


DISKNO 




F4B4 21B5F5 


923 


LXI 


H.HSTDSK ; 


SAME DISK? 


F4B7BE 


924 


CMP 


M - 


DISKNO = HSTDSK? 


F4B8C2CFF4 


925 
926 ; 


JNZ 


NOMATCH 






927; 


SAME DISK, 


SAME TRACK? 




F4BB 3AB0F5 


928 


LDA 


TRACK 




F4BE21B6F5 


929 


LXI 


H,HSTTRK 




F4C1 BE 


930 


CMP 


M ; 


TRACK = HSTTRK? 


F4C2C2CF4 


931 
932 ; 


JNZ 


NOMATCH 






933; 


SAME DISK, 


SAME TRACK, SAME BUFFER? 


F4C5 3AB8F6 


934 


LDA 


SEKHST 




F4C8 21B7F5 


935 


LXI 


H.HSTSEC 


SEKHST = HSTSEC? 


F4CBBE 


936 


CMP 


M 




F4CC CAF3F4 


937 
938; 


JZ 


MATCH 


SKIP IF HATCH 




939 NOMATCH: 








940 ; 


PROPER DISK 


, BUT NOT CORRECT SECTOR 


F4CF3ABAF6 


941 


LDA 


HSTWRT 


HOST WRITTEN? 


F4D2B7 


942 


ORA 


A 




F4D3 C447FA 


943 
944 ; 


CNZ 


WRTHST 


CLEAR HOST BUFF 




945 FILHST: 








946 ; 


MAY HAVE TO FILL THE HOST BUFFER 


F4D6 3AAFF5 


947 


LDA 


DISKNO 




F4D9 32B5F5 


948 


STA 


HSTDSK 




F4DC2AB0F5 


949 


LHLD 


TRACK 




F4DF22B6F5 


950 


SHLD 


HSTTRK 




F4E2 3AB8F6 


951 


LDA 


SEKHST 




F4E5 32B7F5 


952 


STA 


HSTSEC 




F4E8 3AC1F6 


953 


LDA 


RSFLAG 


NEED TO READ? 


F4EBB7 


954 


ORA 


A 




F4EC C44FFA 


955 


CNZ 


RDHST 


YES, IF 1 


F4EF AF 


956 


XRA 


A 


OTO ACCUM 


F4F0 32BAF6 


957 

958 , 


STA 


HSTWRT 


NO PENDING WRITE 




959 MATCH: 








960 , 


COPY DATA TO OR FROM BUFFER 




F4F3 3AB1F5 


961 


LDA 


SECTOR 


MASK BUFFER NUMBER 


F4F6 E601 


962 


ANI 


SECMSK 


LEAST SIGNIF BITS 


F4F8 6F 


963 


MOV 


LA 


READY TO SHIFT 


F4F9 2600 


964 


MVI 


H,0 


DOUBLE COUNT 


F4FB29 


965 


DAD 


H 




F4FC29 


966 


DAD 


H 




F4FD 29 


967 


DAD 


H 




F4FE29 


968 


DAD 


H 




F4FF29 


969 


DAD 


H 




F500 29 


970 


DAD 


H 




F501 29 


971 


DAD 


H 





972 ; HL HAS RELATIVE HOST BUFFER ADDRESS 
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LOG OBJ 


LINE 


SOURCE STATEMENT 




F502 11B8F5 


973 


LXI 


D.HSTBUF 




F505 19 


974 


DAD 


D ; 


HL = HOST ADDRESS 


F506EB 


975 


XCHG 


i 


NOW INDE 


F507 2AB2F5 


976 


LHLD 


DMAADR i 


GET/PUT CP/M DATA 


F50A 0E80 


977 


MVI 


C128 i 


LENGTH OF MOVE 


F50C 3AC2F6 


978 


LDA 


READOP ; 


WHICH WAY? 


F50F B7 


979 


ORA 


A 




F510 C219F5 


980 
981 i 


JNZ 


RWMOVE 


SKIP IF READ 




982 ; 


WRITE OPERATION, MARK AND SWITCH DIRECTION 


F513 3E01 


983 


MVI 


A,l 




F515 32BAF6 


984 


STA 


HSTHRT 


HSTWRT = 1 


F518EB 


985 
986 i 


XCHG 


, 


SOURCE/DEST SWAP 




987RWM0VE: 








988 ; 


C INITIALLY 128, DE IS SOURCE, 


HL IS DEST 


F519 1A 


989 


LDAX 


D 


SOURCE CHARACTER 


F51A 13 


990 


INX 


D 




F51B77 


991 


MOV 


M,A 


TO DEST 


F51C 23 


992 


INX 


H 




F51D0D 


993 


DCR 


C 


LOOP 128 TIMES 


F51E C219F5 


994 
995 ; 


JNZ 


RHMOVE 






996 ; 


DATA HAS BEEN MOVED TO/FROM HOST BUFFER 


F521 3AC3F6 


997 


LDA 


HRTYPE 


WRITE TYPE 


F524 FE01 


998 


CPI 


WRDIR 


TO DIRECTORY? 


F526 3ABFF6 


999 


LDA 


ERFLA6 


IN CASE OF ERRORS 


F529C0 


1000 
1001 ; 


RNZ 




NO FURTHER PROCESSING 




1002 ; 


CLEAR HOST BUFFER FOR DIRECTOR 


i WRITE 


F52AB7 


1003 


ORA 


A 


ERRORS? 


F52BC0 


1004 


RNZ 




SKIP IF SO 


F52C AF 


1005 


XRA 


A 


OTO ACCUM 


F52D32BAF6 


1006 


STA 


HSTWRT 


BUFFER WRITTEN 


F530 CD47FA 


1007 


CALL 


HRTHST 




F533 3ABFF6 


1008 


LDA 


ERFLAG 




F536C9 


1009 

1010 ; 

1011 ; 


RET 
$EJECT 








1012, 


FIXED DATA TABLES FOR DOUBLE A 1 


ND SINGLE DENSITY 




1013 , 


IBM-COMPATIBLE 8" DISKS 






1014 , 


DISK PARAMETER HEADER FOR DISK 


00 




1015 , 


DEFAULT ARRANGEMENT SETS DRIVE 


S TO SINGLE DENSITY 


F537 77F5 


1016 DPBASE: DU 


TRANS, OOOOH 




F539 0000 










F53B 0000 


1017 


DU 


OOOOH,00OOH 




F53D 0000 










F53FC6F6 


1018 


DU 


DIRBF.DPBLK1 




F541 A0F5 










F543C2F7 


1019 


DU 


CHKOO.ALLOO 




F545 46F7 












1020 


DISK PARAMETER HEADER FOR DISK 


01 


F547 77F5 


1021 


DU 


TRANS, OOOOH 




F549 0000 










F54B 0000 


1022 


DU 


OOOOH, OOOOH 
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MODULE PAGE 20 



LOC OBJ 



F54D0000 


F54FC6F6 


F551 A0F5 


F553E2F7 


F555 65F7 


F557 77F5 


F559 0000 


F55B 0000 


F55D 0000 


F55FC6F6 


F561 A0F5 


F563 02F8 


F565 84F7 


F567 77F5 


F569 0000 


F56B0000 


F56D0000 


F56F C6F6 


F571 A0F5 


F573 22F8 


F575 A3F7 


F577 01 


F578 07 


F579 0D 


F57A 13 


F57B 19 


F57C 05 


F57D OB 


F57E 11 


F57F 17 


F580 03 


F581 09 


F582 0F 


F583 15 


F584 02 


F585 08 


F586 OE 


F587 14 


F588 1A 


F589 06 


F58A0C 


F58B 12 


F58C 18 


F58D04 


F58E0A 


F58F 10 


F590 16 



LINE SOURCE STATEMENT 

1023 DU DIRBF,DPBLK1 

1024 DU CHKOliALLOl 

1025 ; DISK PARAMETER HEADER FOR DISK 02 

1026 DU TRANS. OOOOH 

1027 DU OOOOH, OOOOH 

1028 DU DIRBF,DPBLK1 

1029 DU CHK02.ALL02 

1030 i DISK PARAMETER HEADER FOR DISK 03 

1031 DU TRANS, OOOOH 

1032 DU OOOOH, OOOOH 

1033 DU DIRBF.DPBLKl 

1034 DU CHK03.ALL03 

1035 ; 

1036 i SECTOR TRANSLATE VECTOR 

1037 TRANS: DB 1,7,13,19 ; SECTORS 1,2,3,4 



1038 



1039 



1040 



1041 



1042 



1043 



DB 25,5,11,17 i SECTORS 5,6,7,8 



23,3,9,15 (SECTORS 9,10,11,12 



21,2,8,14 .SECTORS 13,14,15,16 



20, 26, 6, 12 i SECTORS 17, 18, 19, 20 



18, 24, 4, 10 ; SECTORS 21, 22, 23, 24 



16,22 



; SECTORS 25,26 



F591 3400 



1044 ; 

1045 ,- DISK PARAMETER BLOCK, COMMON TO ALL DOUBLE DENSITY DISKS 

1046 DPBLK2: 

1047 DU 52 ; SECTORS PER TRACK 
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LQC OBJ 


LINE ! 


SOURCE STATEMENT 




F593 04 


1048 


DB 


4 i 


BLOCK SHIFT FACTOR 


F594 OF 


1049 


DB 


15 ; 


BLOCK MASK 


F595 01 


1050 


DB 


1 ; 


EXTENT MASK 


F596 F200 


1051 


DM 


242 ; 


DISK SIZE-1 


F598 7F00 


1052 


DU 


127 


DIRECTORY MAX 


F59A CO 


1053 


DB 


192 i 


ALLXO 


F59B 00 


1054 


DB 


; 


ALLOC 1 


F59C2000 


1055 


DU 


32 i 


CHECK SIZE 


F59E 0200 


1056 
1057 ; 


DU 


2 ; 


TRACK OFFSET 




1058 i DISK PARAMETER BLOCK, COMMON TO ALL SINGLE DENSITY DISKS 




1059 DPBLK1: 








F5A0 1A00 


1060 


DU 


26 


SECTORS PER TRACK 


F5A2 03 


1061 


DB 


3 


BLOCK SHIFT FACTOR 


F5A3 07 


1062 


DB 


7 


BLOCK MASK 


F5A4 00 


1063 


DB 





NULL MASK 


F5A5F200 


1064 


DU 


242 


DISK SIZE-1 


F5A7 3F00 


1065 


DU 


63 


DIRECTORY MAX 


F5A9C0 


1066 


DB 


192 


ALLXO 


F5AA00 


1067 


DB 





ALLOC 1 


F5AB 1000 


1068 


DU 


16 


CHECK SIZE 


F5AD 0200 


1069 


DU 


2 


TRACK OFFSET 




1070 












1071 


END OF FIXED TABLES 






1072 


$EJECT 










1073 








[nniiimnmmnnH 




1074 






* 


* 




1075 






* VARIABLE DECLARATIONS * 




1076 






* 


« 




1077 








r*TntT*T«wTTit*TTTTTinrTTTinr 




1078 










F5AF00 


1079 DISKNO: 


DB 





; SEEK DISK NUMBER 


F5B0 01 


1080 TRACK: 


DB 


1 


, SEEK TRACK NUMBER 


F5B1 01 


1081 SECTOR: 


DB 


1 


i SEEK SECTOR NUMBER 


F5B2 


1082DMAADR: 


DS 


2 


, DIRECT MEMORY ADDRESS 


F5B4 00 


1083TRKSEK: 
1084 ; 


DB 





; TRACK TO SEEK 


F5B5 00 


1085HSTDSK: 


DB 





i HOST DISK NUMBER 


F5B6 00 


1086HSTTRK: 


DB 





i HOST TRACK NUMBER 


F5B7 01 


1087 HSTSEC: 


DB 


1 


i HOST SECTOR NUMBER 


F5B8 


1088HSTBUF: 
1089 i 


DS 


256 


; HOST TRANSFER BUFFER 


F6B8 01 


1090 SEKHST: 


DB 


1 


; SEEK SHR SECSHF 


F6B9 00 


1091 HSTACT: 


DB 





i HOST ACTIVE FLAG 


F6BA00 


1092 HSTURT: 

1093 ; 


DB 





; HOST URITTEN FLAG 


F6BB00 


1094UNACNT: 


DB 





, UNALLOC REC CNT 


F6BC 00 


1095 UNADSK: 


DB 





, LAST UNALLOC DISK 


F6BD00 


1096 UNATRK: 


DB 





; LAST UNALLOC TRACK 


F6BE 01 


1097 UNASEC: 
1098; 


DB 


1 


; LAST UNALLOC SECTOR 


F6BF 


1099 ERFLA6: 


DS 


1 


; ERROR REPORTING 


F6C0 


1100ERRCNT: 
1101 i 


DS 


1 


; COUNT OF ERRORS ENCOUNTERED 


F6C1 


1102 


RSFLAG: 


DS 


1 


; READ SECTOR FLAG 
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MODULE PAGE 22 



LOG OBJ 

F6C2 
F6C3 

F6C4 



F6C6 
F746 
F765 
F784 
F7A3 
F7C2 
F7E2 
F802 
F822 
F842 
F862 



LINE 



SOURCE STATEMENT 



OOFO 
00F1 
00F1 



0003 
0004 
0005 
0006 
0007 



OOOF 

0009 
OOOF 
0020 

0000 
0040 

001A 
0007 
OOOE 
0000 



1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 



READOP: DS 
WRTYPE: DS 

COUNTR: DS 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 

STACKB: DS 
STKTOP EQU 

SEJECT 



DIRBF 
ALLOO 
ALL01 
ALL02 
ALL03 
CHKOO 
CHK01 
CHK02: 
CHK03 



128 

31 

31 

31 

31 

32 

32 

32 

32 

32 

$ 



« 
« 
« 



1 IF READ OPERATION 
MRITE OPERATION TYPE 

TIMER FOR READY CHECK 



SCRATCH DIRECTORY AREA 
ALLOCATION VECTOR 
ALLOCATION VECTOR 1 
ALLOCATION VECTOR 2 
ALLOCATION VECTOR 3 
CHECK VECTOR 
CHECK VECTOR 1 
CHECK VECTOR 2 
CHECK VECTOR 3 
STACK AREA 
INITIAL STACK POINTER 



XJLXJLXJLJULXJC 

nxinrmrnnr 

« 

DISK CONTROLLER DEPENDENT ROUTINES * 

« 



I II I H» HI »»H»l l HlH » H i mHm H IHIIHH 



PORT DEFINITIONS FOR THE 8272 ON THE SBX-218 (DISK CONTROLLER) 



ST8272 EQU 
RD8272 EQU 
UR8272 EQU 



OFOH 
0F1H 
0F1H 



CONTROLLER COMMANDS 

SPECFY EQU 3 

SNSDRV EQU 4 

XHRITE EQU 5 

XREAD EQU 6 

XRECAL EQU 7 

SNSINT EQU 8 

XSEEK EQU 15 



SRT EQU 

HUT EQU 

HLTIME EQU 

f 

DNSTY1 EQU 

DNSTY2 EQU 

i 

EOT EQU 

6PL1 EQU 

GPL2 EQU 

Nl EQU 



9 

15 

32 


40H 

26 
7 
14 




READ MAIN STATUS REGISTER OF £1272 
READ FROM 8272 DATA REGISTER 
WRITE TO 8272 DATA REGISTER 



HHIl l illimiHII l H I II I I I 

COMMAND DEFINITIONS FOR 8272 



8272 SPECIFY MODE COMMAND 

SENSE DRIVE STATUS COMMAND 

WRITE 

READ 

HOME 

SENSE INTERRUPT STATUS COMMAND 

SEEK 

STEP RATE TABLE 
HEAD UNLOAD TIME 
HEAD LOAD TIME 

SINGLE DENSITY FLAG 
DOUBLE DENSITY FLAG 

LAST SECTOR ON TRACK 
GAP LENGTH FOR SINGLE DENSITY 
GAP LENGTH FOR DOUBLE DENSITY 
SECTOR SIZE CODE FOR SINGLE DENSITY 
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MODULE 


PAGE 23 


LOC OBJ 


LINE SOURCE STATEMENT 






0001 


1158 N2 EQU 


l 


; SECTOR SIZE CODE FOR DOUBLE DENSITY 


0080 


1159 DTL1 EQU 


128 


; BYTES PER SECTOR FOR SINGLE DENSITY 


OOF 


1160 DTL2 EQU 


OFFH 


; BYTES PER SECTOR FOR DOUBLE DENSITY 




1161 ; 








OOCO 


1162 SCSHSK EQU 


OCOH 


i BIT MASK TO TEST STO FOR SUCCESSFUL OPERATION 




1163; 










1164 ; ROUTINE: DKINIT 








1165 ; FUNCTION: INITIALIZE 8272 ON SBX-218 




1166 ; USES: BSYCHK, 


OUTRDY 








1167 ; ARGUMENTS: 










1168 ; RETURNS: 










1169 ; DESTROYS: PSU 










1170 DKINIT: 








F862 CD78F8 


1171 CALL 


BSYCHK 


: 


WAIT FOR CONTROLLER CLEAR (SHOULD BE) 


F865 3E03 


1172 HVI 


A, 3 






F867D3F1 


1173 OUT 


HR8272 


, 


GIVE CONTROLLER SPECIFY COMHAND 


F869 CD82F8 


1174 CALL 


OUTRDY 






F86C3E9F 


1175 HVI 


A, (SRT SHL 4) + 1 


*JT ; SET STEP RATE AND HEAD UNLOAD T 


F86ED3F1 


1176 OUT 


WR8272 






F870 CD82F8 


1177 CALL 


OUTRDY 






F873 3E21 


1178 HVI 


A,HLTIHE+1 


SET HEAD LOAD TIME AND NON-DMA MODE 


F875 D3F1 


1179 OUT 


HR8272 






F877C9 


1180 RET 










1181 












1182 


ROUTINE: BSYCHK 








1183 


FUNCTION: TEST FOR 8272 BUSY 






1184 


USES: 










1185 


ARGUMENTS: 










1186 


RETURNS: 










1187 


DESTROYS: 










1188 BSYCHK: 








F878 DBFO 


1189 IN 


ST8272 




READ MAIN STATUS 


F87A E6F0 


1190 ANI 


OFOH 




MASK OF SEEK BITS (HAY BE SEEKING NOW) 


F87C FE80 


1191 CPI 


80H 




COMPARE TO INPUT PARAMETER 


F87E C278F8 


1192 JNZ 


BSYCHK 




LOOP IF NOT FOUND 


F881 C9 


1193 RET 

1194 ; 










1195 ; ROUTINE: OUTRDY 








1196 ; FUNCTION: WAIT FOR 8272 READY 1 


: 0R IOPB DATA 




1197 ; USES: WAITBT 










1198 i ARGUMENTS: 










1199 ; RETURNS: 










1200 ; DESTROYS: PSh 










1201 OUTRDY: 










1202 i UNBEKNOWNST I 


THE UNI 


ttRYUSER 


DUE TO INSUFICIENT INTEL DOCUMENTATION, 




1203 ; NEC SPECIFIES 


.THAT ME 


MUSTUAI 


r AT LEAST 12 MICROSECONDS AFTER COMMAND 




1204 ; DATA IS WRIT1 


BJBEFORI 


i ATTEMPT 


ING TO READ THE MAIN STATUS REGISTER, OR 




1205 i ELSE UNFORTUNATE NASTIES CAN Hi 


VPEN. 


F882CD9CF8 


1206 CALL 


MAITBT 






F885 DBFO 


1207 IN 


ST8272 




READ MAIN STATUS 


F887 E6F0 


1208 ANI 


OFOH 




HASK OF SEEK BITS (MAY BE SEEKING NOW) 


F889 FE90 


1209 CPI 


90H 




• COMPARE TO INPUT PARAMETER 


F88BC282F8 


1210 JNZ 


OUTRDY 




; LOOP IF NOT FOUND 


F88E C9 


1211 RET 










1212 


! 









ISIS-II 8080/808 


5 MACRO ASSEMBLER, V4. 1 


MODULE PAGE 24 


LOC OBJ 


LINE 


SOURCE STATEMENT 




1213 ; 


ROUTINE: STTRDY 




1214 ; 


FUNCTION: WAIT FOR 8272 RESULT STATUS READY 




1215; 


USES: WAITBT 






1216; 


ARGUMENTS: 






1217; 


RETURNS: 






1218; 


DESTROYS: PSH 






1219 STTRDY: 




F88F CD9CF8 


1220 


CALL 


WAITBT 


F892 DBFO 


1221 


IN 


ST8272 ; READ MAIN STATUS 


F894 E6F0 


1222 


ANI 


OFOH ; MASK OFF SEEK BITS (MAY BE SEEKING NOW 


F896FED0 


1223 


CPI 


ODOH 


F898C28FF8 


1224 


JNZ 


STTRDY ; LOOP IF NOT FOUND 


F89BC9 


1225 
1226; 


RET 






1227 ; 


ROUTINE: WAITBT 




1228; 


FUNCTION: WAIT A FEW MICROSECONDS FOR 8272 MICROCODE TO ADJUST. 




1229; 


USES: 






1230 ; 


ARGUMENTS: 






1231 ; 


RETURNS: 






1232 ; 


DESTROYS: PSW 






1233 WAITBT: 




F89C3E10 


1234 


MVI 


A. 10H ; WAIT A BIT 




1235 UTABIT: 




F89E3D 


1236 


DCR 


A 


F89FC29EF8 


1237 


JNZ 


WTABIT 


F8A2C9 


1238 
1239 ; 


RET 






1240; 


ROUTINE: RECAL 




1241 ; 


FUNCTION: FORCE DRIVE TO RECALIBRATE USED IN ERROR RECOVERY ATTEMPTS. 




1242; 


USES: RECL 






1243; 


ARGUMENTS: USES DRIVE NUMBER FROM IOPB. 




1244; 


RETURNS: 






1245 ; 


DESTROYS: PSW 


1 




1246 RECAL: 




F8A3 3AE7FD 


1247 


LDA 


IOPB+l 


F8A6 E603 


1248 


ANI 


3 


F8A8 4F 


1249 
1250 i 


MOV 

i 


C,A 




1251 i 


i ROUTINE: RECL 






1252 i 


i FUNCTION: SAME AS RECAL BUT USES DRIVE NUMBER IN C 




1253 i 


i USES: BSYCHC, 


OUTRDY, SENSEI 




1254 i 


; ARGUMENTS: DRIVE NUMBER IN C 




1255 , 


i RETURNS: 






1256 : 


i DESTROYS: PSk 


1 




1257 RECL: 




F8A9 CD78F8 


1258 


CALL 


BSYOK 


F8AC3E07 


1259 


MVI 


A.XRECAL 


F8AE F3 


1260 


DI 




F8AF D3F1 


1261 


OUT 


WR8272 


F8B1 CD82F8 


1262 


CALL 


OUTRDY 


F8B4 79 


1263 


MOV 


A,C ; GET DISK NUMBER 


F8B5D3F1 


1264 


OUT 


WR8272 


F8B7FB 


1265 


EI 




F8B8 CDDFF8 


1266 


CALL 


SENSEI 


F8BBC9 


1267 


RET 
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MODULE PAGE 25 



LOC OBJ 



LINE 



SOURCE STATEMENT 



F8BC3AE7FD 
F8BF4F 
F8C0 3AE8FD 
F8C3 5F 



F8C4 CD78F8 
F8C7 3E0F 
F8C9 F3 
F8CAD3F1 
F8CC CB82F8 
F8CF 79 
F8D0 E603 
F8D2D3F1 
F8D4 CB82F8 
F8D7 7B 
F8D8D3F1 
F8DAFB 
F8DB CDDF8 
F8BE C? 



1268 - 

1269 i 

1270 ; 

1271 ; 

1272 i 

1273 ; 

1274 ; 

1275 i DESTROYS: 
1276G0SEEK: 
1277 



ROUTINE: GOSEEK 

FUNCTION: SEEK A PHYSICAL TRACK. USED DURING READ AND WRITE OPERATIONS. 

USES: GOSK 

ARGUMENTS: DRIVE AND TRACK VALUES IN IOPB. 

USES: GOSK 

RETURNS: 

PSW, C, E 



1278 
1279 
1280 
1281 
1282 
1283 
1284 



LDA 
MOV 
LDA 
MOV 



IOPB+1 
C,A 
IOPB+2 
LA 



SAME, 
USES: 
RETURNS: 
DESTROYS: 



ONLY ENTER WITH 
BSYCHK, OUTRDY, 



C = DRIVE, 
SENSEI 



E = TRACK 



PSW 



1285 GOSK: 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 ; 

1301 

1302 

1303 

1304 

1305 



CALL 

MVI 

DI 

OUT 

CALL 

MOV 

ANI 

OUT 

CALL 

MOV 

OUT 

EI 

CALL 

RET 



BSYCHK 
A.XSEEK 

WR8272 

OUTRDY 

A;C 

3 

UR8272 

OUTRDY 

A,E 

WR8272 

SENSEI 



DISK NUMBER 



TRACK NUMBER 



READ INTERRUPT STATUS AND STORE INTERRUPT STATUS IN STO, CURRENT 
TRACK IN ST1. THIS ROUTINE IS USED TO TERMINATE SEEK AND RECAL 
USES: STTRDY 
RETURNS: 
DESTROYS: PSW 



F8DF 3E01 
F8E1 3223F9 



1306 SENSEI: 

1307 IF 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 

1319 ; 

1320 IF 
1321 
1322 



NOT DSKINT 



IN 
RAR 

HUT 
Uftlr 

MVI 

OUT 

CALL 

IN 

CALL 

IN 

RET 

ENDIF 

DSKINT 

MVI 

STA 



P0RT1C 

SENSEI 

hSNSINT 

WR8272 

STTRDY 

RD8272 

STTRDY 

RD8272 



TEST FOR INTERRUPT 



JUMP IF NOT INTERRUPT 



A,l 
DSKIFLG 



SET DISK INTERRUPT FLAG 
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MODULE PAGE 26 



LOG OBJ 



LINE 



SOURCE STATEMENT 



F8E4FB 
F8E5 76 
F8E6 3A23F9 
F8E9FE02 
F8EBC2E4F8 
F8EE AF 
F8EF 3223F9 
F8F2 C? 



F8F3F5 
F8F4C5 
F8F5E5 
F8F6 3E02 
F8F8 3223F9 
F8FB3E08 
F8FDD3F1 
F8FCD8F8 
F902 DBF1 
F904 4F 
F905CD8FF8 
F908 DBF1 

F90A 3E20 
F90CD3D8 
F90EFB 

F90F79 
F910 E6E0 
F912 FECO 
F914 CC1BF9 
F917 El 
F918 CI 
F919 Fl 
F91A C9 



F91B 79 
F91C E603 
F91E4F 
F91F CD17FA 
F922C9 

F923 00 



1323 SNSLP: 

1324 EI 

1325 HLT 

1326 LDA DSKIFLG 

1327 CPI 2 

1328 JNZ SNSLP 

1329 XRA A 

1330 STA DSKIFLG 

1331 RET 

1332 i 

1333 i COME HERE WHEN INTERRUPT ACTUALLY OCCURS 

1334 INTSNS: 



WAIT FOR COMPLETION INTERRUPT 

CHECK FLAG FOR HHAT HAPPENED WITH INTERRUPT 

TEST FOR FLAG SET BY ACTUAL DISK INTERRUPT 



i CLEAR FLAG 



1335 PUSH 

1336 PUSH 

1337 PUSH 

1338 MVI 

1339 STA 

1340 MVI 

1341 OUT 

1342 CALL 

1343 IN 

1344 NOV 

1345 CALL 

1346 IN 

1347 i 

1348 MVI 

1349 OUT 

1350 EI 

1351 ; 

1352 MOV 

1353 ANI 

1354 CPI 

1355 CZ 

1356 POP 

1357 POP 

1358 POP 

1359 RET 

1360 ; 

1361 IDSKCHG: 

1362 HOV 

1363 ANI 

1364 MOV 

1365 CALL 

1366 RET 

1367 ; 

1368 DSKIFLG: DB 

1369 ENDIF 

1370 ; 

1371 ; ROUTINE: SENSED 

1372 ; FUNCTION: READ STATUS OF 

1373 ; USES: SENSD 

1374 i ARGUMENTS: IOPB 

1375 i RETURNS: DRIVE STATUS IN 

1376 ; DESTROYS: PSU, C 

1377 SENSED: 



PSU 

B 

H 

A, 2 

DSKIFLG 

kSNSINT 

HR8272 

STTRDY 

RD8272 

C,A 

STTRDY 

RD8272 

AiEOIC 
0CW2 



A,C 

OEOH 

OCOH 

IDSKCHG 

H 

B 

PSU 



A,C 
3 

C,A 
TSTRD1 



i SAVE REGISTERS 



; SENSE INTERRUPT STATUS 



i TERMINATE INTERRUPT FOR 8259 



TEST FOR READY CHANGE 

IF CHANGE IN READY CAUSED INTERRUPT 



i NOW JEST STATUS OF INTERRUPTING DRIVE 



IOPB+1 AND RETURN BYTE IN A. 
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LOC OBJ 


line 


SOURCE STATEMENT 


F924 3AE7FD 


1378 


IDA 


IOPB+1 


F927 4F 


1379 


MOV 


C,A 



MODULE PAGE 27 



1380 ; 

1381 , ROUTINE: SENSD 

1382 i FUNCTION: USE CONTENTS OF C AS DISK 

1383 ; USES: BSYCHG OUTRDY, STTRDY 

1384 ; ARHUMENTS: DRIVE NUMBER IN C 

1385 i RETURNS: DRIVE STATUS WORD (ST3) IN A 

1386 ; DESTROYS: PSU 

1387 SENSD: 



F928 CD78F8 


1388 


CALL 


BSYCHC 


F92B3E04 


1589 


MVI 


A.SNSDRV 


F92DF3 


1390 


DI 




F92ED3F1 


1391 


OUT 


UR8272 


F930 CD82F8 


1392 


CALL 


OUTRDY 


F933 79 


1393 


MOV 


A,C i GET DISK NUMBER 


F934 E603 


1394 


ANI 


3 


F936D3F1 


1395 


OUT 


HR8272 


F938 FB 


1396 


EI 




F939CD8FF8 


1397 


CALL 


STTRDY 


F93CDBF1 


1398 


IN 


RD8272 


F93EC9 


1399 

1400 ; 

1401 ; 


RET 




F93F06 


1402 IOPBKO: 


DB 


XREAD.0,0,0,2 


F940 00 








F941 00 








F942 00 








F943 02 








F944 00 


1403 SDBYTS: 


DB 


Nl.EOLGPLLDTLl 


F945 1A 








F946 07 








F947 80 








F948 06 


1404 I0PBK1: 


DB 


XREAD.0,1,0,1 


F949 00 








F94A01 








F94BO0 








F94C 01 








F94D 00 


1405 


DB 


N1,E0LGPL1,DTL1 


F94E 1A 








F94F 07 








F950 80 








F951 46 


1406 I0PBK2: 


DB 


XREAD + 40H»0,1,0,1 


F952 00 








F953 01 








F954 00 








F955 01 








F956 01 


1407 DDBYTS: 


DB 


N2iE0T.GPL2iDTL2 


F957 1A 








F958 0E 








F959 FF 


1408 ; 

1409 BOOTCFt 


1: 




F95A 113FF9 


1410 


LXI 


D, IOPBKO ; SET INITIAL IOP 


F95D 2100DC 


1411 


LXI 


H,CCP ; INITIAL DMA ADD 
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MODULE PAGE 28 



LOC OBJ 


LINE 




SOURCE STATEMENT 




F960 0619 


1412 




MVI 


B,25 


; READ 25 SECTORS OF FIRST TRACK (IQ 


F962 0E80 


1413 




MVI 


C80H 


i SINGLE DENSITY NO HATTER UHAT 


F964 CDD2FA 


1414 
1415 i 




CALL 


DRDISK 




F967 0E01 


1416 




MVI 


CI 




F969 CDB8F3 


1417 
1418 > 




CALL 


SETTRK 




F96C3ADDFD 


1419 




LDA 


DNSITY 


; TEST DENSITY OF DRIVE 


F96FB7 


1420 




ORA 


A 




F970 CA8F9 


1421 
1422 ; 




JZ 


BOOTSD 


i SKIP IF SINGLE 




1423 ; 


ATTEMPT BOOT FROM DOUBLE DENSITY DEVICE. 


F973 0E14 


1424 




MVI 


C20 




F975 CDBDF3 


1425 




CALL 


SETSEC 




F978 0180F1 


1426 




LXI 


B.BIQS-80H 




F97B CDC5F3 


1427 




CALL 


SETDMA 




F97E CDF6F3 


1428 
1429 i 




CALL 


READ 


; READ ODDBALL HALF-SECTOR LAST PAGE 


F981 1151F9 


1430 




LXI 


D.I0PBK2 




F984 2180E8 


1431 




LXI 


H.CCP+25H28 




F987 0609 


1432 




MVI 


B,9 




F989 0E00 


1433 




MVI 


CO 




F98B CDD2FA 


1434 
1435; 




CALL 


DRDISK 


i READ TRACK 1 BRUTE FORCE 


F98E C9 


1436 
1437 




RET 








1438 BOOTSD: 








F98F 1148F9 


1439 




LXI 


D, I0PBK1 




F992 2180E8 


1440 




LXI 


H,CCP+25*80H 




F995 0613 


1441 




MVI 


B,19 




F997 0E80 


1442 




MVI 


C80H 




F999 CDD2FA 


1443 




CALL 


DRDISK 


; TRACK 1 READ, SINGLE DENSITY 


F99C C9 


1444 
1445 i 




RET 








1446 ; 


ROUTINE: SNIFF 






1447 ; 


FUNCTION: 


TEST ALL READY DRIVES FOR THEIR DENSITY 




1448 i 


USES 


SNIFF1 






1449 ; 


ARGUMENTS: 








1450 ; 


RETURNS: 








1451 ; 


DESTROYS: PSH, BC, DE, HL 






1452 SNIFF: 










1453 ; 


NOW 


"SNIFF" 


EACH READY DRIVE TO DETERMI>£ THE DENSITY OF THE DRIVE 


F99D 0EO4 


1454 




MVI 


CNUMDSK 






1455SNFALL 








F99F0D 


1456 




DCR 


C 




F9A0 CDA9F9 


1457 




CALL 


SNIFF1 




F9A3 79 


1458 




MOV 


A,C 




F9A4 B7 


1459 




ORA 


A 




F9A5 C29FF9 


1460 




JNZ 


SNFALL 


; LOOP TIL ALL DRIVES DONE 


F9A8C9 


1461 
1462 ; 




RET 








1463 , 


ROUTINE: SNIFF1 






1464 , 


FUNCTION: 


TEST DRIVE FOR DENSITY 




1465, 


USES 


SENS! 


), TSTDNS 






1466 , 


ARGUMENTS: 


DISK NUMBER IN C 





(IGNORE BOOT) 
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MODULE PAGE 29 



LOC OBJ 



LIt£ 



SOURCE STATEMENT 



F9A9 21D9FD 
F9AC 0600 
F9AE 09 
F9AF 3600 
F9B1 CD28F9 
F9B4 E620 
F9B6C8 
F9B7 3601 

F9B9C5 
F9BA CDA9F8 
F9BD CDC2F9 
F9C0C1 
F9C1 C9 



F9C2 1148F9 
F9C5 21E6FD 
F9C8C5 
F9C9 0E09 
F9CBCD3CFF 
F9CEC1 
F9CF79 
F9D0 32E7FD 

F9D3C5 
F9D4 CDA2F3 
F9D7 CI 
F9D8 110AO0 
F9DB 19 
F9DCE5 
F9DD 11A0F5 
F9E0 73 
F9E1 23 
F9E2 72 

F9E3 0600 
F9E5 21DDFD 
F9E8 09 
F9E9 3600 



1467 ; RETURNS: 

1468 i DESTROYS: PSW, BC, DE, HL 

1469 SNIFF1: 

1470 ; CHGTBL IS A TABLE THAT INDICATES THE READY STATUS OF A DRIVE IF THE DRIVE 
IF NOT READY AT BOOT, CHGTBH DRIVE) =0. IF THE DRIVE IS READY AT BOOT, THE 
VALUE IS 1. IF A READY DRIVE GOES NOT READY, THE VALUE CHANGES TO 2. IF 
THE DRIVE SHOULD GO READY ONCE MORE, THE VALUE OF CHGTBL BECOMES 3. THIS 
IS INDICATIVE OF THE DISK BEING CHANGED, AND A CHGTBL VALUE OF 3 IS FLAGGED 
BY THE READ/WRITE ROUTINE AND QUESTIONED (SEE GORW). 



1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 TSTDNS; 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 



LXI 

MVI 

DAD 

MVI 

CALL 

ANI 

RZ 

MVI 



H, CHGTBL 

B,0 

B 

H,0 

SENSD 

20H 

H,l 



CHGTBL INITIALLY 
TEST FOR DRIVE READY 
MASK FOR READY 
SKIP IF NOT READY 
SET DRIVE STATUS = READY 



TEST DENSITY OF DRIVE 



NOU SNIFF FOR DENSITY OF DRIVE. 

PUSH B 

CALL RECL 

CALL TSTDNS ; 

POP B 
RET 



ROUTINE: TSTDNS 

FUNCTION: READ TRACK 1, SECTOR 1 OF DISK TO DETERMINE DENSITY. 

USES: MOVEIL SELDSK, GOSEEK, DOIT 

ARGUMENTS: DRIVE NUMBERIN C 

RETURNS: SETS DNSITY TABLE ACCORDINGLY 

DESTROYS: PSH, B, DE, HL 



LXI 

LXI 

PUSH 

MVI 

CALL 

POP 

MOV 

STA 



D, I0PBK1 

H,IOPB 

B 

C,9 

MOVEIT 

B 

A,C 

IOPB+1 



SINGLE DENSITY READ TRACK 1 



MOVE APPROPRIATE IOPB INTO IOPB AREA 



SET DISK 



NOW FETCH PROPER CP/M POINTERS AND SET THEM 



PUSH 

CALL 

POP 

LXI 

DAD 

PUSH 

LXI 

MOV 

INX 

MOV 

MVI 
LXI 
DAD 
MVI 



B 

SELDSK 

B 

D,10 

D 

H 

D,DPBLK1 

M,E 

H 

HiD 

B,0 

H, DNSITY 

B 

M,0 



SAVE POINTER 



ASSUME SINGLE DENSITY 
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MODULE PAGE 30 



LOC OBJ 



LINE 



SOURCE STATEMENT 



F9EBE5 
F9EC CDBCF8 
F9EF 1180FE 
F9F2 010180 
F9F5CD14FF 
F9F8E1 
F9F9D1 



F9FA3AF0FD 

F9FDFE01 

F9FC0 

FA00 3640 
FA02EB 
FA03 1191F5 
FA06 73 
FA07 23 
FA08 72 
FA09C9 



FAOAOEOO 
FAOC CD17FA 
FAOFOC 
FA10 79 
FA11 FE04 
FA13 DA17FA 
FA16C9 



FA17 0600 
FA19 CD28F9 
FA1C E620 
FA1E 21D9FD 
FA21 09 
FA22CA2CFA 
FA25 7E 



1522 i 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 , 

1531 ; 

1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 



PUSH 

CALL 

LXI 

LXI 

CALL 

POP 

POP 



H 

60SEEK 

D.SPRBUF 

B.8001H 

DOIT 

H 

D 



READ INTO SPARE BUFFER 

SINGLE DENSITY COUNT, ONE SECTOR 



THIS "SNIFFER* ROUTINE HINGES AROUND THE FACT THAT A WRONG DENSITY READ 
HILL RETURN AN ADDRESS HARK ERROR. CHECK FOR THIS ERROR. IF NOT FOUND, HE 
ALREADY HAVE THE PROPER DENSITY SET, SO RETURN. OTHERWISE, CHANGE ALL THE 
APPROPRIATE PARAMETERS. 



LDA 
CPI 
RNZ 

HVI 

XCHG 

LXI 

MOV 

INX 

MOV 

RET 



ST1 
1 



H,40H 

D,DPBLK2 
M,E 
H 
M,D 



TEST FOR ADDRESS NARK ERROR 
RETURN NON-ZERO IF SINGLE DENSITY 

SET DOUBLE DENSITY FLAG 

ADJUST CP/H 



RETURN ZERO IF DOUBLE DENSITY 



ROUTINE: TSTRDY 

FUNCTION: TEST DRIVE STATUS AND SET STATUS TABLE 

USES: TSTRD1 

ARGUMENTS: 

RETURNS: UPDATES CHGTBL 

DESTROYS: PSU, BC, HL 

THIS ROUTINE CALLED OCCASIONALLY DURING WAITS FOR CONSOLE INPUT. 



1554 TSTRDY: 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 ; 

1563 

1564 

1565 

1566 

1567 

1568 



MVI 

CALL 

INR 

MOV 

CPI 

X 

RET 



CO 

TSTRD1 

C 

A,C 

NUMDSK 

TSTRD1 



ROUTINE: TSTRD1 

FUNCTION: TEST READY STATUS OF DRIVE 

USES: SENSD 

ARGUMENTS: DRIVE NUMBER IN C 

RETURNS: UPDATES CHGTBL 

DESTROYS: PSW, B, HL 



1569 TSTRD1: 

1570 

1571 

1572 

1573 

1574 

1575 

1576 



MVI 

CALL 

ANI 

LXI 

DAD 

JZ 

MOV 



B,0 

SENSD 

20H 

H, CHGTBL 

B 

TSTRDN 



MASK FOR READY BIT 

POINT TO CHGTBL 
SKIP IF NOT READY 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FA26 B7 
FA27 C8 
FA28F601 
FA2A77 
FA2BC9 

FA2C7E 
FA2DFE01 
FA2FC0 
FA30 3602 
FA32C9 



FA33 3AB0F5 
FA36 4F 
FA37 3AAFF5 
FA3A5F 



FA3B79 
FA3CB7 
FA3DC8 

FA3E21DDFD 
FA41 1600 
FA43 1? 
FA44 7E 
FA45B7 
FA46 C9 



1577 

1578 

1579 

1580 

1581 

1582TSTRDN: 

1583 

1584 

1585 

1586 

1587 

1588 - 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 



ORA 

RZ 

ORI 

MOV 

RET 

MOV 
CPI 

RNZ 
HVI 
RET 



1 
M.A 



A,M 
1 

M,2 



DO NOTHING IF CODE = Oi 
ACCESS TIME 

SET BIT IF READY 



THIS IS HANDLED AT 



ROUTINE: GDNSTY 

FUNCTION: FETCH DENSITY VALUE FOR DRIVE 

USES: GDNST1 

ARGUMENTS: DISKNO, TRACK 

RETURNS: A = 40H IF DOUBLE IF SINGLE 

DESTROYS: PSW, DE HL 

POINT INTO THE DENSITY TABLE AND DETERMINE THE CURRENT DENSITY SETTING FOR 

THE DRIVE SELECTED BY DISKNO. THE VALUE SHOULD BE ZERO IF SINGLE DENSITY. 

SET THE FLAGS BEFORE RETURN. 



1598 GDNSTY: 

1599 

1600 

1601 

1602 

1603 - 

1604 

1605 

1606 

1607 

1608 

1609 



LDA 
MOV 
LDA 
MOV 



TRACK 
C,A 

DISKNO 
EA 



ROUTINE: GDNST1 

FUNCTION: SAME AS GDNSTY WITH DIFFERENT ARGUMENTS 

USES: 

ARGUMENTS: DRIVE IN E CURRENT TRACK IN C 

RETURNS: SAME AS ABOVE 

DESTROYS: PSW, D, HL 



1610 GDNST1: 

1611 

1612 

1613 

1614 ; 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 



MOV 
ORA 
RZ 

LXI 
HVI 

DAD 
MOV 
ORA 
RET 



A.C 
A 



H.DNSITY 

D,0 

D 

A,M 

A 



IF TRACK = 0, THEN DENSITY ALWAYS SINGLE 



WTHST PERFORMS THE PHYSICAL URITE TO 
THE HOST DISK, RDHST READS THE PHYSICAL 
DISK. 



JHHHHHUHHUHUHHUHHHKWHIimHi H 

1630 HRTHST: 

1631 ,• HSTDSK = HOST DISK t, HSTTRK = HOST TRACK t, 
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MODULE PAGE 32 



LOC OBJ 



LINE 



SOURCE STATEMENT 



FA47 CDE3F3 

FA4A0E05 
FA4CC354FA 



FA4FCBE3F3 
FA52 0E06 



1632 ; HSTSEC = HOST SECT #. URITE "HSTSIZ" BYTES 

1633 ; FROM HSTBUF AND RETURN ERROR FLAG IN ERFLA6. 

1634 , RETURN ERFLAG NON-ZERO IF ERROR 

1635 CALL STDBL 

1636 HRTSST' 

1637 MVI C,5 ; LOAD WRITE DATA IOPB CODE 

1638 JHP GORU 

1639 ; 
1640RDHST: 

1641 ; HSTDSK = HOST DISK #, HSTTRK = HOST TRACK #, 

1642 ; HSTSEC = HOST SECT #. READ "HSTSIZ* BYTES 

1643 i INTO HSTBUF AND RETURN ERROR FLAG IN ERFLAG. 

1644 CALL STDBL 

1645 RDSST: 

1646 MVI C,6 ; LOAD READ DATA IOPB CODE 

1647 ; 

1648 i COMMON CODE SEQUENCE SHARED BY PHYSICAL READ AND URITE ROUTINES. 

1649 ; CP/M LOGICAL SECTORS 0-25 ARE TRANSLATED TO PHYSICAL SECTORS 1-26 THROUGH 

1650 ; THE TRANSLATE TABLE THIS USES A SKEW OF SIX, AND COMPENSATES FOR THE LACK 

1651 i OF TRANSLATION DONE BY THE SECTRAN ROUTINE. 

1652 GORU: 



ANTICIPATE SUCCESS 



FA54 AF 


1653 


XRA 


A 


FA55 32BFF6 


1654 
1655 i 


STA 


ERFLAG 


FA58C5 


1656 
1657 ; 


PUSH 


B 


FA59 3AD6FD 


1658 


LDA 


RUNDSK 


FA5C4F 


1659 


MOV 


C,A 


FA5DCDB8FC 


1660 
1661 ; 


CALL 


CHKRD1 


FA60 2AD6FD 


1662 


LHLD 


RUNDSK 


FA63 2600 


1663 


MVI 


H,0 


FA65 11D9FD 


1664 


LXI 


D.CHGTBL 


FA68 19 


1665 


DAD 


D 


FA69 7E 


1666 


MOV 


A,M 


FA6AF5 


1667 


PUSH 


PSU 


FA6BFE00 


1668 


CPI 





FA6DCCBFFD 


1669 


CZ 


RBDISK 


FA70 Fl 


1670 


POP 


PSU 


FA71 FE03 


1671 


CPI 


3 


FA73CCA5FD 


1672 
1673 ; 


CZ 


DSKCHG 


FA76 CD33FA 


1674 


CALL 


GDNSTY 


FA79 CI 


1675 


POP 


B 


FA7A Bl 


1676 


ORA 


C 




1677 ; 


COMMENCE CONSTRUCTION 


FA7B32E6FD 


1678 
1679; 


STA 


IOPB 


FA7E 21E7FD 


1680 


LXI 


H, IOPB+1 


FA81 3AD6FD 


1681 


LDA 


RUNDSK 


FA84 77 


1682 


MOV 


n,A 


FA85 23 


1683 
1684 ; 


INX 


H 


FA86 3AD8FD 


1685 


LDA 


RUNSEC 


FA89 5F 


1686 


MOV 


LA 



SAVE DISK COMMAND 



TEST FOR READY 



SEE IF DISK CHANGE OCCURRED 



CHECK FOR DISK NOT READY AT BOOT 



ANNOUNCE DISK CHANGE IF APPROPRIATE 

GET DENSITY OF RUNDSK 
RECOVER DISK COMMAND 
MASK IN UITH COMMAND 

SET FIRST BYTE OF IOPB 

POINT TO SUCCESSIVE BYTES TO BE LOADED. 

SET IN THE DRIVE NUMBER 



SAVE SECTOR NUMBER FOR BELOU. 
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LX OBJ 



LINE 



SOURCE STATEMENT 



FA8A3AD7FD 
FA8D77 
FA8E23 
FA8F 3600 
FA91 23 
FA92FE02 
FA94 DAAOFA 

FA97E5 
FA98 1600 
FA9A 2177F5 
FA9D 19 
FA9E5E 
FA9FE1 



FAA0 73 

FAA1 23 

FAA2E5 

FAA3CD33FA 

FAA6E1 

FAA7C2BBFA 



FAAA0E04 
FAAC 1144F9 
FAAFCD3CF 
FAB2 2AB2F5 
FAB5 22E4FD 
FAB8C3C9FA 



FABB0E04 
FABD 1156F9 
FAC0CD3CFF 
FAC3 21B8F5 
FAC6 22E4FD 



FAC9 3E01 
FACB32E3FD 
FACECDE5FA 
FAD1 C9 



1687 ; 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695; 

1696 

1697 

1698 

1699 

1700 

1701 

1702; 

1703 NOTRAN: 

1704 

1705 

1706 

1707 

1708 

1709 

1710 ; 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 



LDA 
MOV 
INX 
MVI 
INX 
CPI 
X 

PUSH 

MVI 

LXI 

DAD 

MOV 

POP 



MOV 

INX 

PUSH 

CALL 

POP 

JNZ 



RUNTRK 

M,A 

H 

H,0 

H 

2 

NOTRAN 

H 

D.0 

H, TRANS 

D 

E,H 

H 



H,E 

H 

H 

GDNSTY 

H 

ATTRB2 



DON'T FORGET THE TRACK NUMBER! 



HEAD NUMBER ALWAYS = (SINGLE-SIDED) 



DO NOT TRANSLATE IF ON BOOT TRACKS (0 OR 1) 

SAVE IOPB POINTER 
RUNSEC ALREADY IN E. 
POINT INTO TRANSLATE TABLE 
DO SECTOR TRANSLATION 
GET PHYSICAL SECTOR 
RECOVER IOPB POINTER 



SECTOR NUMBER 

SAVE IOPB POINTER 
FETCH DENSITY INTO A 
RECOVER IOPB POINTER 
JUMP IF NOT SINGLE DENSITY 



NOW STORE THOSE ELEMENTS OF THE IOPB SPECIFIC TO A SINGLE DENSITY TRANSFER, 
I.E., N, DTL, GPL AND THE ACTUAL DMA TRANSFER ADDRESS DESIRED BY CP/M. 



MVI 

LXI 

CALL 

LHLD 

SHLD 

JMP 



C.4 

D.SDBYTS 

MOVEIT 

DMAADR 

ACTDMA 

ENDATR 



SINGLE DENSITY ACCESS USES ACTUAL DMA ADDRESS 
STORE AT WORKING SPOT 



LIKEWISE, HERE THROW IN THE UNIQUELY DOUBLE DENSITY ELEMENTS. 



1721 ATTRB2: 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 



MVI 

LXI 

CALL 

LXI 

SHLD 



C,4 

D.DDBYTS 

MOVEIT 

H.HSTBUF 

ACTDMA 



DOUBLE DENSITY ACCESS USES DEBLOCK BUFFER 



ALL BYTES OF THE IOPB ARE NOW FILLED. 

NOW WE MUST SEND THE IOPB TO THE CONTROLLER. 



1730 ENDATR: 

1731 

1732 

1733 

1734 

1735 ; 

1736 

1737 

1738 

1739 

1740 

1741 



MVI 
STA 
CALL 
RET 



A,l 

TRNSIZ 

TRYIT 



TRANSFER ONE SECTOR ONLY 



GO FOR IT. 



THIS ROUTINE PERMITS DIRECT DISK ACCESS FOR HULTISECTOR TRANSFERS AND ALLOWS 

FOR USE OF SUCH ROUTINES BY SYSGEN, FORMAT, AND COPY ROUTINES. 

IT ACCEPTS THREE PARAMETERS: A WORD PARAMETER IN HL THAT DEFINES THE 

BASE ADDRESS FOR THE DMA TRANSFER, A BYTE PARAMETER IN B THAT DEFINES THE 

NUMBER OF SECTORS TO TRANSFER, A BYTE PARAMETER IN C THAT DEFINES THE 

SIZE OF THE SECTOR, AND A WORD PARAMETER IN DE THAT DEFINES THE BASE ADDRESS 
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MODULE 


PAGE 34 


LX OBJ 


LINE 




SOURCE STATEMENT 


- 






1742 i 


OF THE IOPB TO BE USED FOR THE TRANSFER. 




1743 DRDISK: 










FAD2 22E4FD 


1744 




SHLD 


ACTDMA 




; INITIAL DMA ADDRESS TO CCP BASE 


FAD5 78 


1745 




MOV 


A,B 




; NUMBER OF SECTORS 


FAD6 32E3FD 


1746 




STA 


TRNSIZ 






FAD9 79 


1747 




MOV 


A,C 




; SECTOR SIZE PARAMETER (DEPENDS ON DENSITY 


FADA32E2FD 


1748 




STA 


DNSTYP 






FAD0 21E6FD 


1749 




LXI 


H.IOPB 






FAE0 0E09 


1750 




MVI 


C,9 






FAE2CD3CFF 


1751 
1752; 




CALL 


MOVEIT 




; MOVE IN USER IOPB 




1753; 


THIS ROUTINE DOES THE DISK TRANSFER AND ERROR CHECKING. IT IS CALLED FROM 




1754 ; 


GORU, 


MUCH HANDLES THE NORMAL CP/M TRANSFER, AND ALSO FROM THE BOOT 




1755; 


PROCEDURE 










1756 TRYIT: 










FAE5CDB4FC 


1757 




CALL 


CHKRDY 




; TEST FOR DRIVE READY 


FAE8 3AE6FD 


1758 




IDA 


IOPB 






FAEBE60F 


1759 




ANI 


OFH 






FAEDFE05 


1760 




CPI 


XWRITE 




; IF WRITE OPERATION 


FAEFC2F5FA 


1761 




JNZ 


MwCHC 






FAF2CD46FD 


1762 




CALL 


WRTPRO 




; CHECK FOR WRITE PROTECT 




1763NURCHK: 










FAF5 3E0A 


1764 




MVI 


A, 10 




; NUMBER OF ERROR RETRIES 


FAF7 32C0F6 


1765 
1766 




STA 


ERRCNT 






FAFA AF 


1767 




XRA 


A 






FAFB32E1FD 


1768 




STA 


DNSCHG 




; CLEAR DENSITY CHANGED FLAG 


FAFECDBCF8 


1769 




CALL 


GOSEEK 




; SEEK TO TRACK 




1770 TRYAGN: 










FB01 3AE3FD 


1771 




LDA 


TRNSIZ 






FB04 4F 


1772 




MOV 


C,A 




; FETCH TRANSFER SIZE 


FB05 2AE4FD 


1773 




LHLD 


ACTDMA 






FB08EB 


1774 




XCHG 






; FETCH DMA ADDRESS 


FB09 3AE2FD 


1775 




LDA 


DNSTYP 






FB0C47 


1776 




MOV 


B,A 




; SET DENSITY TYPE PARAMETER. 


FBOD CD14FF 


1777 
1778 




CALL 


DOIT 




; WELL DO IT! 




1779 


NOW IS THE TIME TO TEST FOR ERRORS. 


FB10 3AEFFD 


1780 




LDA 


STO 






FB13 E6C0 


1781 




ANI 


OCOH 




; MASK FOR ERROR INDICATORS 


FB15 C21AFB 


1782 




JNZ 


ISERR 




; IF NO ERRORS, RETURN. 




1783 


NO ERRORS DETECTED. 






FB18 AF 


1784 




XRA 


A 






FB19C9 


1785 
1786 




RET 










1787 








ft ¥ 1 ft *4 ft ftft ft ft TrTrftTriHrTUr ft ft ftlHr ftft Tit tit X ft ft 




1788 








* 


* 




1789 








* 


DISK ERROR RECOVERY ♦ 




1790 








* 


* 




1791 








H*titt**4*tt»t4t**4*fH**4**4» 




1792 












\ 


1793 
1794 


ISERR: 










FB1A 3AF1FD 


1795 




LDA 


ST2 




; TEST FOR WRONG CYLINDER ERROR. 


rain FAin 


179A 




ANT 


10H 
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LOC OBJ 

FB1F CA28FB 

FB22CDA3F8 
FB25CDBCF8 



FB28 3AC0F6 
FB2B3D 
FB2C32C0F6 
FB2F C201FB 



FB32 3EFF 
FB34 32BFF6 



FB37 11D3FB 

FB3A2106FC 

FB3D0E06 

FB3F3AE6FD 

FB42E640 

FB44CA4AFB 

FB47 11D9FB 

FB4ACD3CFF 



FB4D 11DFFB 
FB50 21FBFB 
FB53 0E04 
FB55 3AE6FD 
FB58E60F 
FB5AFE06 
FB5CCA62FB 
FB5F 11E3FB 

FB62CD3CFF 



FB65 3AE7FD 
FB68E603 
FB6A C641 
FB6C 321AFC 



FB6F3AE8FD 
FB72 2123FC 



LINE 

1797 
1798; 
1799 
1800 

1801 ; 

1802 CYLOK: 
1803 

1804 
1805 
1806 
1807 ; 



SOURCE STATEMENT 



JZ 

CALL 
CALL 



LDA 
OCR 
STA 
JNZ 



CYLOK 

RECAL 
GOSEEK 



ERRCNT 
A 

ERRCNT 
TRYAGN 



SKIP IF NOT THIS ERROR 

TRY RECALIBRATING 
SEEK TRACK 



TEST FOR 4 TIMES AROUND 



LOOP BACK AND TRY AGAIN IF NOT 4 TIMES 



1809; 

1810; 

1811 ; 

1812; 

1813; 

1814 

1815 

1816 ; 

1817 ; 
1818; 
1819 ; 
1820 
1821 
1822 
1823 
1824 
1825 
1826 

1827 NTERDD: 

1828 

1829 ; 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840NTERWT: 

1841 

1842 ; 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 



NOW IS THE TIME TO DO SOME ERROR REPORTING TO THE CONSOLE, PRIOR TO 
RETURNING CONTROL TO THE BDOS SO THAT IT CAN DO IT'S RATHER USELESS ERROR 
HANDLING AND REPORTING. WE WILL PERFORM A DIAGNOSTIC PRINTOUT RATHER AKIN TO 
THAT DONE BY ISIS, ALTHOUGH MORE EXTENSIVE 



NOW FOR THE NEWS. . . 
MVI A.OFFH 
STA ERFLAG 



SET FLAG TO INDICATE ERROR TO BDOS 



NOW FILL IN THE APPROPRIATE TEXT IN THE ERROR MESSAGE TO INDICATE EITHER 
'SINGLE' OR 'DOUBLE' DENSITY. THIS SECTION MOVES THE PROPER SIX BYTES INTO 
POSITION TO GIVE THE ABOVE WORDS. 



LXI 

LXI 

MVI 

LDA 

ANI 

JZ 

LXI 



D.ERSD 

HERDNST 

C,6 

IOPB 

40H 

NTERDD 

D,ERDD 



CALL MOVEIT 



TEST FOR DENSITY 



JUMP IF NOT DOUBLE DENSITY 



MOVE IN PROPER WORD 



NOW DO THE SAME PROCESS, ONLY TO FILL IN 'READ' OR 'WRIT' IN THE SEQUENCE TO 
INDICATE WHETHER IT WAS A READ OR WRITE 



LXI 

LXI 

MVI 

LDA 

ANI 

CPI 

JZ 

LXI 



D.RDING 

H,OPSPOT 

C,4 

IOPB 

OFH 

XREAD 

NTERWT 

D.WRTING 



CALL MOVEIT 



FETCH THE DRIVE SELECT, CONVERT TO ASCII 'A' THROUGH 'D', AND STORE IN PLACE 



LDA 
ANI 
ADI 
STA 



IOPB+1 
3 

'A' 
ERDSK 



GET THE ATTEMPTED TRACK, CONVERT TO TWO DIGITS OF DECIMAL, AND STORE 
LDA IOPB+2 
LXI H,ERTRK 
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LOC OBJ 


LINE 


SOURCE STATEMENT 




FB75CDABFB 


1852 
1853 . 


CALL 


CONV10 






1854, 


GET THE ATTEMPTED SECTOR, CONVRT TO TWO-DIGIT DECIMAL, AND STORE. 


FB78 3AEAFD 


1855 


LDA 


IOPB+4 




FB7B 212EFC 


1856 


LXI 


H.ERSEC 




FB7ECDABFB 


1857 
1858, 


CALL 


C0NV10 






1859, 


GET THE FIRST STATUS WORD, AND STORE AS 8 BINARY DIGITS. 


FB81 3AEFFD 


1860 


LDA 


STO 




FB84 214DFC 


1861 


LXI 


H,ERSTO 




FB87CDC0FB 


1862 
1863 , 


CALL 


C0NV2 






1864 , 


DO THE SAME FOR ST1. 




FB8A3AF0FD 


1865 


LDA 


ST1 




FB8D 215DFC 


1866 


LXI 


HERST1 




FB90CDCOFB 


1867 
1868 
1869 


CALL 
AND FOR ST2 


C0NV2 




FB93 3AF1FD 


1870 


LDA 


ST2 




FB96 216DFC 


1871 


LXI 


HERST2 




FB99CDC0FB 


1872 
1873 


CALL 


C0NV2 






1874 


FINALLY, PRINT THE ERROR MESSAGE 


FB9C21E7FB 


1875 


LXI 


H.ERRTXT 




FB9FCD33F2 


1876 


CALL 


PRINTM 






1877 


WAIT FOR CONSOLE INPUT. 


IF A CTL-C, REBOOT DIRECTLY. 


FBA2CD27F3 


1878 


CALL 


CONIN 




FBA5FE03 


1879 


CPI 


3 




FBA7 CAOOOO 


1880 


JZ 







FBAAC9 


1881 
1882 


RET 








1883 


ENTER WITH BINARY IN A, 


MEMORY POINTER IN HL CONVERT BINARY TO TWO DIGIT! 




1884 


DECIMAL STORING MSD FIRST IN MEMORY. 




1885 
1886 


DESTROYS BC. 
]0NV10: 






FBABOEOA 


1887 


MVI 


CIO 


i TEN'S CONVERSION 


FBAD06FF 


1888 
1889 


MVI 
J>10S: 


B,OFFH 


i INITIAL COUNT 


FBAF04 


1890 


INR 


B 


; INCREMENT COUNT 


FBB0 91 


1891 


SUB 


C 


; SUBTRACT TEN AGAIN 


FBB1 D2AFFB 


1892 
1893 


JNC 

■ 


LP10S 


,• LOOP IF SOMETHING LEFT 


FBB4 81 


1894 


ADD 


C 


i LESS THAN ZERO, RESTORE TO PREVIOUS VALUE 


FBB5 4F 


1895 


MOV 


C,A 


; SAVE UNITS DIGIT 


FBB6 78 


1896 


MOV 


A,B 


i FETCH TENS COUNT 


FBB7C630 


1897 


ADI 


'0' 


i CONVERT TO ASCII 


FBB9 77 


1898 


MOV 


M,A 


; STORE 


FBBA23 


1899 


INX 


H 




FBBB79 


1900 


MOV 


A,C 


; FETCH UNITS 


FBBCC630 


1901 


ADI 


'0' 


; ASCII CONVERT 


FBBE77 


1902 


MOV 


M,A 


; STORE UNITS 


FBBF C9 


1903 
1904 


RET 








1905 


; ENTER WITH DATA TO CONVERT IN A, POINTER IN HL LEAVES 8 DIGIT ASCII VECT 




1906 


i REPRESENTING THE BINARY VALUE IN MEMORY. 
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LOC OBJ 


LINE 


SOURCE STATEMENT 








1907 i DESTROYS BC. 










1908 C0NV2: 










FBC0 4F 


1909 


MOV 


C,A 


; SAVE ENTRY VALUE 




FBC1 0608 


1910 
1911 LP2S: 


HVI 


B.8 


i SET FOR EIGHT REPS 




FBC3 79 


1912 


MOV 


A,C 


i PUT MSB INTO CARRY 




FBC4 17 


1913 


RAL 








FBC5 4F 


1914 


MOV 


C,A 


; SAVE SHIFTED VALUE 




FBC6 3630 


1915 


HVI 


M.'0' 


i STORE A '0' 




FBC8D2CDFB 


1916 


JNC 


STILLO 


; SKIP IF CARRY = 




FBCB 3631 


1917 

1918 STILLO: 


MVI 


fc'l' 


; IF CARRY = 1 THEN STORE A 


'1 


FBC0 23 


1919 


INX 


H 


; LOOK TO NEXT SPOT 




FBCE05 


1920 


OCR 


B 


, CHECK REP COUNT 




FBCF C2C3FB 


1921 


JNZ 


LP2S 


; LOOP IF NOT DONE 




FBD2C9 


1922 
1923 ; 


RET 








FBD3 73696E67 


1924 ERSD: 


DB 


'SINGLE' 






FBD7 6C65 












FBD9 646F7562 


1925 ERDD: 


DB 


'DOUBLE' 






FBDD6C65 












FBDF 72656164 


1926 RDING: 


DB 


'READ' 






FBE3 77726974 


1927 WRTING: 


DB 


'WRIT' 






FBE7 0D 


1928ERRTXT: 


DB 


0DH,0AH,07H,'DISK ERROR WHILE ' 




FBE8 OA 












FBE9 07 












FBEA 4469736B 












FBEE 20657272 












FBF2 6F722077 












FBF6 68696C65 












FBFA20 












FBFB 58585858 


1929 0PSP0T: 


DB 


'XXXXING ON ' 






FBFF 696E6720 












FC03 6F6E20 












FC06 58585858 


1930 ERDNST: 


DB 


'XXXXXX DENSITY DISK ' 




FCOA 58582064 












FCOE 656E7369 












FC12 74792064 












FC16 69736B20 












FC1A 582C2074 


1931 ERDSK: 


DB 


'X, TRACK ' 






FC1E 7261636B 












FC22 20 












FC23 58582C20 


1932ERTRK: 


DB 


'XX, SECTOR ' 






FC27 73656374 












FC2B6F7220 








' 




FC2E58582E 


1933ERSEC: 


DB 


'XX.',ODH,OAH, 


'ERROR STATUS BYTES: STO = ' 




FC31 OD 












FC32 0A 












FC33 4572726F 












FC37 72207374 












FC3B 61747573 












FC3F 20627974 












FC43 65733A20 












FC47 53543020 












FMR ?.n?o 
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LOC OBJ 

FC4D 58585858 
FC51 58585858 
FC55 2C205354 
FC59 31203D20 
FC5D 58585858 
FC61 58585858 
FC65 2C205354 
FC69 32203D20 
FC6D 58585858 
FC71 58585858 
FC75 2E 
FC76 OD 
FC77 0A 
FC78 48697420 
FC7C43544C2D 
FC80 4320746F 
FC84 20726562 
FC88 6F6F742C 
FC8C 20616E79 
FC90 206F7468 
FC94 6572206B 
FC98 65792074 
FC9C 6F207265 
FCAO 7475726E 
FCA4 20657272 
FCA8 6F722074 
FCAC 6F204244 
FCBO 4F532E 
FCB3 00 



FCB4 3AE7FD 
FCB7 4F 



FCB8 CD28F9 
FCBB 17 



LINE SOURCE STATEMENT 

1934 ERSTO: DB 'XXXXXXXXi ST1 « ' 

1935 ERST1: DB 'XXXXXXXX, ST2 = ' 
1936ERST2: DB 'XXXXXXXX. ', ODH, OAH 



1937 



DB 'HIT CTL-C TO REBOOT, ANY OTHER KEY TO RETURN ERROR TO BOOS. '.0 



1938 ; 

1939 ; ROUTINE: CHKRDY 

1940 ; FUNCTION: SEE BELOU 

1941 i USES: CHKRD1 

1942 ; ARGUMENTS: IOPB 

1943 ; RETURNS: 

1944 i DESTROYS: PSW, C, HL 

1945 ; THIS ROUTINE TESTS THE DRIVE SPECIFIED BY IOPB FOR FAULT OR READY CONDITIONS. 

1946 i NO GOOD FAULT HANDLING SCHEME HAS OCCURRED TO HE, SO IT SHARES THE SAME 

1947 ; TRACK AS THE NOT READY HANDLER: IT HILL PRINT A MESSAGE 'DRIVE X NOT READY, 

1948 i HIT ANY KEY TO CONTINUE', WAIT FOR A CONSOLE INPUT TO INDICATE THAT THE 

1949 ; FAULT CONDITION HAS BEEN CORRECTED (I.E. DISK INSERTED, DOOR CLOSED), AND 

1950 i PERFORM THE TEST AGAIN. 

1951 CHKRDY: 

1952 LDA IOPB+1 

1953 MOV C,A 

1954 ; ROUTINE: CHKRD1 

1955 ; FUNCTION: SAME AS CHKRDY 

1956 ; USES: SENSD, PRINTM, CONIN 

1957 ; ARGUMENTS: DRIVE NUMBER IN C 

1958 ; RETURNS: 

1959 i DESTROYS: PSW, C, HL 

1960 CHKRD1: 

1961 CALL SENSD 

1962 RAL 

1<W.3 .V. MTTRIW 



PUT FAULT BIT IN CARRY 
FRMW IP FAIHT 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FCBF 17 
FCCO 17 
FCC1 D2F4FC 
FCC4C9 

FCC5 0D 
FCC6 0A 
FCC7 44726976 
FCCB6520 
FCCD 41206E6F 
FCD1 74207265 
FCD5 6164793B 
FCD9 20686974 
FCOD 20616E79 
FCE1 206B6579 
FCE5 20746F20 
FCE9 636F6E74 
FCED696E7565 
FCF1 OD 
FCF2 0A 
FCF3 00 



FCF4 79 

FCF5E603 

FCF7C641 

FCF9 32CDFC 

FCFC 21C5FC 

FCFFCD33F2 

FD02 CD27F3 

FD05FE03 

FD07CA0000 

FD0AC3B4FC 



FDODOD 
FDOEOA 
FDOF 44726976 
FD13 6520 
FD15 41206973 
FD19 20577269 
FD1D 74652050 
FD21 726F7465 
FD25 63746564 
FD29 21204869 
FD2D 7420616E 
FD31 79206B65 
FD35 7920746F 
FD39 20636F6E 
FD3D 74696E75 
FD41 652E 
FD43 0D 



1964 

1965 

1966 

1967 

1968; 

1969NRMSG: DB 



RAL 
RAL 
JNC 

RET 



NOTRDY 



i PUT READY BIT IN CARRY 
; ERROR IF NOT READY 



1970 NRDISK: DB 



ODHOAH, 'DRIVE ' 



'A NOT READY; HIT ANY KEY TO CONTINUE', ODH,OAH*0 



1971 ; 

1972 NOTRDY: 
1973 

1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 WPMSG 



MOV 

ANI 

ADI 

STA 

LXI 

CALL 

CALL 

CPI 

JZ 

JMP 



A,C 

3 

'A' 

NRDISK 

H,NRMSG 

PRINTH 

CONIN 

3 



CHKRDY 



GET CURRENT DISK 

CONVERT TO EQUIVALENT LETTER 
STORE IN MESSAGE 
POINT TO MESSAGE 
TYPE IT OUT 
WAIT FOR INPUT 

REBOOT IF CTL-C 
LOOP TO SEE IF OK NOU 



WRITE PROTECTION OF DISKS TO BE WRITTEN MUST BE SENSED BEFORE ACCESS. 
HENCE THIS ROUTINE IT TESTS THE HP BIT AND PRINTS A MESSAGE IF IT IS 
SET. IT THEN WAITS LIKE THE ROUTINE ABOVE, FOR A RESPONSE 



DB 



1989 WPDISK: DB 



ODH.OAH, 'DRIVE 



'A IS WRITE PROTECTED! HIT ANY KEY TO CONTINUE ',0DH,OAH,0 
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LOC OBJ 



LIKE 



SOURCE STATEMENT 



FD44 OA 








FD45 00 


1990; 








1991 ; ROUTINE: HRTPRO 






1992 ; FUNCTION: TEST FOR DRIVE URITE PROTECTED 




1993 i USES: HRTPR1 








1994 ; ARGUMENTS: IOPB 






1995 ; RETURNS: 








1996 ; DESTROYS: PSU 


1, C, HL 






1997 HRTPRO: 






FD46 3AE7FD 


1998 LDA 


IOPB+1 




FD49 4F 


1999 MOV 
2000; 


C,A 






2001 ; ROUTINE: URTPR1 






2002 ; FUNCTION: SAME AS HRTPRO 






2003 ; USES: SENSD. 


PRINTH, CONIN 






2004 ; ARGUMENTS: DRIVE NUMBER IN C 






2005 •• RETURNS: 








2006 ; DESTROYS: PSH 


1, C, HL 






2007 HRTPR1: 






FD4ACD28F9 


2008 CALL 


SENSD 




FD4DE640 


2009 ANI 


40H 


; TEST HP BIT 


FD4FC8 


2010 RZ 




i RETURN IF NOT SET 


FD50 3AE7FD 


2011 LDA 


IOPB+1 




FD53E603 


2012 ANI 


3 


; GET DISK NUMBER 


FD55C641 


2013 ADI 


'A' 




FD57 3215FD 


2014 STA 


UPDISK 


; SET THE APPROPRIA' 


FD5A210DFD 


2015 UI 


H,UPMSG 




FD5DCD33F2 


2016 CALL 


PRINTM 


; PRINT MESSAGE 


FD60 CD27F3 


2017 CALL 


CONIN 


; HAIT FOR INPUT 


FD63FE03 


2018 CPI 


3 




FD65CA0O0O 


2019 JZ 





; REBOOT ON CTL-C 


FD68 C346FD 


2020 JHP 

2021 ; 


HRTPRO 




FD6B0D 


2022DKCHGM: DB 


ODH,OAH,'DISK HAS BEEN CHANGED. PRO 


FD6C OA 








FD6D 4469736B 








FD71 20686173 








FD75 20626565 








FD79 6E206368 








FD7D 616E6765 








FD81 642E2050 








FD85 72657373 








FD89 20737061 








FD8D 63652062 








FD91 61722074 








FD95 6F20636F 








FD99 6E74696E 








FD9D75652E2E 








FDA1 2E 








FDA2 0D 


2023 DB 


ODHiOAHO 




FDA3 OA 








FDA4 00 


2024 ; 








ww : BnirrTwr- ncmtt 





PRESS SPACE BAR TO CONTINUE. . 
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LOC OBJ 


Lire 


SOURCE STATEMENT 






2026; 


FUNCTION: ANNOUNCE A DISK CHANGE AND AWAIT VERIFICATION 




2027 ; 


USES: PRINTH, 


CONIN 






2028 ; 


ARGUMENTS: 








2029 ; 


RETURNS: 








2030 ; 


DESTROYS: PSW, C, HL 






2031 i 


DISK CHANGE DETECTED; TELL THE TROOPS... 




2032DSKCHG: 






FDA5 216BFD 


2033 


LXI 


H.DKCHGM 




FDA8CD33F2 


2034 


CALL 


PRINTH 




FDABCD27F3 


2035 


CALL 


CONIN 




FDAEFE20 


2036 


CPI 


/ / 




FDB0C2E4F2 


2037 


JNZ 


WBOOT 




FDB3 2AD6FD 


2038 


LHLD 


RUNDSK 




FDB6 2600 


2039 


MVI 


H,0 




FBB8 11D9FD 


2040 


LXI 


D, CHGTBL 




FDBB 19 


2041 


DAD 


D 




FDBC3601 


2042 


MVI 


H.1 


; SET NORMAL READY STATUS 


FDBEC9 


2043 
2044, 


RET 








2045, 


ROUTINE: RBDISK 






2046 , 


FUNCTION: TEST DENSITY ON OFF-LINE DISK 




2047, 


USES: SENSD, 


RECL, TSTDNS 






2048 


ARGUMENTS: RUNDSK 






2049 


RETURNS: SETS CHGTBL DNSITY 






2050 


DESTROYS: PSH, C, HL 






2051 


COME HERE WHEN UE DISCOVER THAT THE DISK WE ARE ACCESSING 




2052 


READY AT BOOT TIME. WE WILL SNIFF THE DISK AGAIN. 




2053 RBDISK: 






FDBF3AD6FD 


2054 


LDA 


RUNDSK 




FDC2 4F 


2055 


MOV 


C,A 




FDC3E5 


2056 


PUSH 


H 




FDC4CD28F9 


2057 


CALL 


SENSD 




FDC7E620 


2058 


ANI 


20H 




FDC9CAD4FD 


2059 


JZ 


STLNRDY 




FDCC3601 


2060 


MVI 


M,l 




FDCE CDA9F8 


2061 


CALL 


RECL 




FDD1 CDC2F9 


2062 


CALL 


TSTDNS 






2063 STURDY: 






FDD4E1 


2064 


POP 


H 




FDD5C9 


2065 
2066 
2067 
2068 


RET 
$EJECT 








2069 




* 


* 




2070 




* VARIABLE DECLARATIONS « 




2071 




« 


« 




2072 






[HH»HHUilimHIIH« 




2073 








FDD6 


2074 


RUNDSK: DS 


1 


; ACTUAL CP/H DISK 


FDD7 


2075 


RUNTRK: DS 


1 


; ACTUAL CP/H TRACK 


FDD8 


2076 
2077 


ttJNSEC: DS 


1 


; ACTUAL CP/H SECTOR 


FDD9 


2078 


DHGTBL: DS 


NUMDSK 


; DISK CHANGED TABLE 


FDDD 


2079 
2080 


DNSITY: DS 


NUMDSK 


i DENSITY OF DISK IN DRIVE 
; (0 = SINTCF. 40H = miMFl 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FDE1 
FDE2 

FDE3 01 
FDE4 

FDE6 
FDEF 
FDFO 
FDF1 
FDF2 

FE80 
FE80 



«EJECT 



2081 DNSCHG: 
2082DNSTYP: 
2083 ; 

2084TRNSIZ: 
2085 ACTDMA: 
2086 

2087 IOPB: 

2088 STO: 

2089 ST1: 

2090 ST2: 

2091 ST3: 
2092; 
2093 

2094SPRBUF: 
2095 

2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
7ns 



DS 
DS 



DS 

DS 
DS 
DS 
DS 
DS 

ORG 
DS 



1 
1 

1 
2 

9 
1 
1 
1 
4 

OFE80H 
128 



DENSITY CHANGE DURING ACCESS RAG. 
DENSITY TYPE FLAG USED DURING TRANSFER. 

NUMBER OF SECTORS TO TRANSFER AT A TINE 
ACTUAL DMA ADDRESS FOR TRANSFER. 
COMMAND AND RESULT TABLES TO DRIVE 8272 
IOPB COMMAND WORDS 



RESULT WORDS 

NEW POSITION HORDS 



SPARE READ BUFFER 

ALSO USED BY FORMAT ROUTINES TO INSERT 

THE FORMAT CODE HERE 



w imiiimnm i iiiuniiniiiiiiiiim 
i i 

f DISK TRANSFER PROCEDURE < 
i i 

HIIIH i m il HmHIIIIIIHI I IIIIIIIl l H 

THIS SECTION OF CODE HANDLES THE ACTUAL DATA TRANSFERS FOR READ AND 
WRITE DUE TO THE TIGHT CODING REQUIREMENTS. THIS CODE IS RATHER 
HAYWIRE THIS CODE IS BASED ON THE EXAMPLE CODE SUPPLIED BY INTEL IN THE 
SBX-218 MANUAL THE CONTENT OF THE MASTER STATUS REGISTER AT ANY 
TIME IS USED TO DETERMINE THE VECTOR DIRECTLY. THE SUCCESS OF THIS 
TECHNIQUE REQUIRES THAT NO DRIVE BE SEEKING DURING A READ/WRITE 
OPERATION. THIS IS NOT A PROBLEM IN CP/N, AS ALL OPERATIONS ARE 
COMPLETED BEFORE ANOTHER IS INITIATED. WITH THIS CONDITION SATISFIED, 
THE BOTTOM NYBBLE OFTHEMSR = 0. THETOPHALFOFTHE NYBBLE CONTROLS 
THE OPERATIONS. BIT 4 IS THE BUSY BIT; THIS BIT IS SET THROUGHOUT 
THE OPERATION. BITS 5-7 ARE THEREFORE THE UNIQUE DETERMINING BITS. 
THE ACTUAL OPERATIONS ARE AS FOLLOWS: 



BIT 7 6 5 LOW PAGE ADDRESS 



1 
1 1 
00 
1 



1 1 



1 1 1 



10H 
30H 

50H 
70H 
90H 
BOH 

DOH 

FOH 



OPERATION 

INVALID CODE - SHOULD NOT OCCUR. 
WAITING FOR NEXT WRITE TRANSFER TO BE 

READY. 

INVALID CODE - HAY OCCUR IN ERROR. 
WAITING FOR NEXT READ TRANSFER. 
INVALID CODE - NOT USED. 
READY FOR NEXT BYTE OF WRITE DATA 

FROM THE PROCESSOR. 
READ/WRITE TERMINATED; READY FOR 

RESULT BYTES TO BE READ. 
FDCC READY WITH NEXT BYTE OF READ 

DATA FROM THE DISK. 



THE APPROPRIATE (VERY SHORT AND FAST) ROUTINES TO HANDLE THESE 
CONDITIONS ARE LOCATED AT POSITIONS WITHIN THE PAGE AT OFEOOH WHICH 
HAVE LOWER BYTE ADDRESSES EQUAL TO THE POSSIBLE CODE FROM THE MSR. 
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LOG OBJ 



LINE 



SOURCE STATEMENT 



FFOO 
FFOO 

FFO0C3D2FA 
F03C3C4F8 
FF06 C3A9F9 

F10 

F10 DBFO 
FF12 6F 
FF13E? 



FF14F3 
FF15 21E6FD 
FF18 78 
FF19 32E2FD 
FF1C 0608 
FF1E7E 
F1FD3F1 

F21 CD82F8 
FF24 23 
FF25 7E 
FF26 D3F1 
FF28 05 
F29C221FF 
FF2CC334FF 

FF30 



F30 DBFO 
FF32 6F 
FF33 E9 



FF34 3AE2FD 
FF37 47 
FF38 2170FF 
FF3BE9 



2136 i 

2137 

2138 

2139; 

2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 



DISKIO EQU OFFOOH 
ORG DISKIO 
THIS VECTOR AREA SUPPLIED FOR UTILITIES WHICH NEED DIRECT DISK ACCESS 



JMP 
JMP 
JMP 

ORG 
IN 
MOV 
PCHL 



DRDISK 

GOSK 

SNIF1 

DISKIO 
ST8272 
LA 



B=NO. SECTORS, C=DENSITY, DE=IOPB, HL=DHA 

C = DRIVE, E = TRACK 

TESTS DENSITY OF DISK IN DRIVE NO. IN C 



+ 10H 



ROUTINE: DOIT 

FUNCTION: ACTUAL DISK READ/WRITE 

USES: 

ARGUMENTS: B = FM/HFM, C = SECTOR COUNT 

RETURNS: 

DESTROYS: PSW, BC, DE, HL 

ENTER AND HANDLE THE IOPB TRANSFER. 

THE DE REGISTER MUST BE SET TO THE BUFFER WHERE THE TRANSFER WILL OCCUR. 

DOUBLE DENSITY ACCESSES NORMALLY USE THE BUFFER AT THE END. 

THE B REGISTER MUST CONTAIN EITHER 00 FOR HFH OR 80H FOR FH TRANSFERS. 

THE C REGISTER MUST CONTAIN THE NUMBER OF SECTORS TO TRANSFER 

NORMAL CP/H CALLS WILL ENTER WITH D = 0FF00/0FF80, B = 00/80H, C « 1. 



2161 DOIT: 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 DOIOPB: 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 ; 

2178 



DI 

LXI 

MOV 

STA 

MVI 

MOV 

OUT 

CALL 

INK 

MOV 

OUT 

OCR 

JNZ 

JMP 

ORG 



H,IOPB 

A,B 

DNSTYP 

B,8 

A,M 

WR8272 

OUTRDY 

H 

A.H 

WR8272 

B 

DOIOPB 

GOTOIT 



POINT TO IOPB FOR COMMANDS 



NUMBER OF COMMAND BYTES 

GET IT STARTED AND WRITE THE FIRST BYTE 

WAIT FOR FDCC READY FOR NEXT TRANSFER 

POINT TO NEXT 

LOAD COMMAND BYTE 

SEND IT OUT. 

TEST FOR END 

LOOP IF NOT. 

OTHERWISE GO FOR IT! 



DISKIO + 30H 

2179 ; WAIT HERE BETWEEN BYTES OF A SECTOR WRITE OPERATION. 

2180 WRWAIT: 
ST8272 
LA 



2181 
2182 
2183 

2184 ; 

2185 GOTOIT: 
2186 

2187 
2188 
2189 
2190 ; 



IN 

MOV 

PCHL 



FETCH MSR 

LOAD BOTTOM HALF OF VECTOR = MSR. 

JUMP ON VECTOR. 



LDA 
MOV 
LXI 
PCHL 



DNSTYP 

B,A 

H, DISKIO + 70H 



RECOVER BYTE COUNTER 

LOAD VECTOR TO WAIT SPOT. 
JUMP ON VECTOR. 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



2191 i THIS IS A HOVE BLOCK UTILITY. 

2192 i ENTER UITH DE = SOURCE POINTER, HL = DEST PTR, 

2193 i C = BLOCK LENGTH NOTE THAT POINTERS INCREMENT DURING USE 

2194 MOVEIT: 



F3C 1A 


2195 




LDAX 


D 






F3D77 


2196 




MOV 


H,A 






F3E 13 


2197 




INX 


D 






F3F23 


2198 




INX 


H 






F40 0D 


2199 




OCR 


C 






F41 C23CF 


2200 




JNZ 


MOVEIT 




F44C9 


2201 
2202 i 




RET 






F50 


2203 




ORG 


DISKIO + 50H 




F50C3D0F 


2204 




JHP 


FINISH 




001D 


2205 RINGSIZE 


EQU IDH 




F53 


2206RNGBUF: 


DS 


RINGSIZE i 


INPUT RING BUFFER 




2207; 










F70 


2208 




ORG 


DISKIO + 70H 






2209 ; 


SAKE AS WRWAIT, BUT DURING READ SECTOR 




2210 RDWAIT: 








F70DBF0 


2211 




IN 


ST8272 




FF72 6F 


2212 




MOV 


LA 




F73E9 


2213 
2214 i 




PCHL 






F80 


2215 




ORG 


DISKIO + SDH 






2216 INTTBL: 










F80 C379F2 


2217 




JMP 


BOOT 






F83 00 


2218 




NOP 








F84 C379F2 


2219 




JHP 


BOOT 






F87 00 


2220 




NOP 






F88 C379F2 


2221 




JMP 


BOOT 




F8B00 


2222 




NOP 






F8CC3F3F8 


2223 




JHP 


INTSNS 


INTERRUPT FROM SBX-218 


F8F 00 


2224 




NOP 






F90 C379F2 


2225 




JMP 


BOOT 




F93 00 


2226 




NOP 






F94 C379F2 


2227 




JHP 


BOOT 




F97 00 


2228 




NOP 






F98C338F3 


2229 




JHP 


ININT 


KEYBOARD INTERRUPT 


F9B00 


2230 




NOP 






F9C C379F2 


2231 
2232 ; 




JMP 


BOOT 






2233 j 


FOR HULTISECTOR TRANSFERS WE MUST DO HOUSEKEEPING BETWEEN SECTOJ 




2234 ; 


RESTORE THE ORIGINAL BYTE COUNT TO B. 




2235 INTRSC 








F9F3AE2FD 


2236 




LDA 


DNSTYP 


GETDENSI 


TYTYPE 


FA2 47 


2237 




MOV 


B,A 


RECOVER B 


YTE COUNTER 


FA3 OD 


2238 




DCR 


C 


DECREMENT 


SECTOR TRANSFER COUNT 


FA4C270F 


2239 




JNZ 


RDWAIT 


LOOP BACK 


IF MORE TO 60 


FA7C3D0F 


2240 




JMP 


FINISH 


NOMORE- 


CLEAN UP. 




2241 ; 










F80 


2242 




ORG 


DISKIO + 80H 




FBO 


2243 




ORG 


DISKIO + OBOH 







2244 ; OUTPUT NEXT BYTE FROM MEMORY FOR DISK WRITE. 

2245 WRTOUT: 



ISIS-II 8080/808 
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LOC OBJ 


LINE 


SOURCE STATEMENT 












FFBO 1A 


2246 


LDAX 


D 


; GET NEXT BYTE FROM MEMORY 










FFB1 D3F1 


2247 


OUT 


WR8272 




OUTPUT IT 










FFB3 13 


2248 


I NX 


D 




INCREMENT POINTER 










FFB4 05 


224? 


OCR 


B 




DECREMENT COUNTER 










FFB5C230FF 


2250 


JNZ 


HRWAIT 




LOOP UNTIL PAGE ENDS 










FFB8C39FFF 


2251 


JMP 


INTRSC 




TEST FOR LAST SECTOR 












2252 > 
















FFDO 


2253 


ORG 


DISKIO + 


ODOH 












2254 ; COME HERE IF PROCESS TERMINATES BY ERROR 












2255 FINISH: 
















FFD0 3E0D 


2256 


MVI 


A.TCON 


; PULSE TO TERMINAL COUNT 










FFD2 D3E7 


2257 


OUT 


PT1CTL 












FFD4 3E0C 


2258 


MVI 


A.TCQF 


; END PULSE 










FFD6D3E7 


225? 


OUT 


PT1CTL 














2260 ; NOW FETCH THE SEVEN RELEVANT STATUS BYTES. 










FFD8 0E07 


2261 


MVI 


C,7 












FFDA 21EFFD 


2262 
2263GETST: 


LXI 


H.STO 












FFDDCD8F8 


2264 


CALL 


STTRDY 












FFE0DBF1 


2265 


IN 


RD8272 












FFE2 77 


2266 


MOV 


M,A 












FFE3 23 


2267 


INX 


H 












FFE4 0D 


2268 


DCR 


C 












FFE5C2DDF 


2269 


JNZ 


GETST 


; LOOP TILL ALL READ. 










FFE8 FB 


2270 


EI 














FFE9C9 


2271 
2272; 


RET 




; GO TO CLEANUP ROUTINE 










FFFO 


2273 


ORG 


DISKIO + OFOH 












2274 ; INPUT NEXT BYTE DURING DISK READ. 












2275 RDIN: 
















FFF0DBF1 


2276 


IN 


RD8272 




i GET DATA BYTE FROM DISK. 










FFF2 12 


2277 


STAX 


D 




> STORE IT AWAY 










FFF3 13 


2278 


INX 


D 




; ADVANCE POINTER 










FFF4 05 


2279 


DCR 


B 












FFF5C270FF 


2280 


JNZ 


RDWAIT 












FFF8 C39FF 


2281 

2282; 

2283 


JMP 
END 


INTRSC 












PUBLIC SYMBOLS 


















EXTERNAL SYMBOLS 


















USER SYMBOLS 


















ACTDMA AFDE4 


ALLOO AF746 


ALLOJ 


AF765 


ALL02 AF784 ALL03 A F7A3 


ALLK 


AF490 


ATTRB2 AFABB 


B0110 A 0263 


B9600 A 0007 


BDOS 


AE406 


BIOS A F200 BLKSIZ A 0800 


BMSG 


AF23E 


BOOT 


AF27? 


BOOTCP A F95A 


BOOTSD A F98F 


BREAKK AF347 


BSYCHK A F878 BUSLCK A O0D5 


BX9600 A 0008 


COMO 


A 0030 


C2M3 A00B6 


CCP ADCOO 


CDISK A 0004 


CHARR A OOOD CHGTBL A FDD? 


CHKOO 


AF7C2 


CHK01 


AF7E2 


CHK02 A F802 


CHK03 AF822 


CHKRD1 A FCB8 


CHKRDY A FCB4 CHKUNA A F450 


CH8251 A OOED 


CMD 


A 0027 


CMX351 A 00C1 


CNTCTL A OOCB 


CNTLST A FOO 


CNTR2X A OOCA CONIN A F327 


C0NIN1 A F327 


C0N0UTAF366 


CONST AF323 


C0NV10 A FBAB 


C0NV2 AFBCO 


COUNTR A F6C4 CPMSPT A 0034 


CTLQ 


A 0011 


CTLS 


A 0013 


CTRO AOODC 


CTR1 AOODD 


CTR2 


AOODE 


CYLOK 


A FB28 DDBYTS A F956 


DIRBF 


AF6C6 


DISKIO A FOO 



ISIS-II 8080/80 
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DISKNO AF5AF 


DKCHGM A FD6B 


DKINIT A F862 


DMAADR AF5B2 


DNSCHGAFDE1 


DNSITY AFDDD 


DNSTY1 A 0000 


DMSTY2 A 0040 


DNSTYP AFDE2 


DOIOPB A FF21 


DOIT A FF14 


DPBASE AF537 


DPBLK1 AF5A0 


DPBLK2 A F591 


DRDISK A FAD2 


DSKCHGAFDA5 


DSKIFL A F923 


DSKINT AOOFF 


DTL1 A 0080 


DTL2 AOOF 


ENDATR AFAC9 


EOIC A 0020 


EOT A 001A 


ERDD A FBD9 


ERDNST AFC06 


ERDSK AFC1A 


ERFLAG AF6BF 


ERRCNT AF6C0 


ERRTXT A FBE7 


ERSD AFBD3 


ERSEC AFC2E 


ERSTO A FC4D 


ERST1 AFC5D 


ERST2 AFC6D 


ERTRK A FC23 


FALSE AFOO 


FILHST A F4D6 


FINISH A FFDO 


GDNST1 A FA3B 


GONSTY AFA33 


GETST AFFDD 


GOCPH A F31C 


GORW AFA54 


GOSEEK AF8BC 


GOSK AF8C4 


GOTOIT A F34 


GPL1 A 0007 


GPL2 AOOOE 


HLTIME A 0020 


HOME AF39C 


HSTACT A F6B9 


HSTBLKA0002 


HSTBUFAF5B8 


KSTDSKAF5B5 


HSTSECAF5B7 


HSTSIZ A 0100 


HSTSPT A 001A 


HSTTRK AF5B6 


HSTWRT A F6BA 


HUT AOOOF 


ICU1 A 00D8 


ICH1A A 0096 


ICU2 A00D9 


ICW2A AOOFF 


IDSKCH A F91B 


IMASK AFFB7 


IHR A00D9 


ININT AF338 


INTRBI AOOF 


INTRSC AF9F 


INTSNS A F8F3 


INTTBL AF80 


INTVEC A FF80 


IOBYTE A 0003 


IOPB A FDE6 


IOPBKO A F93F 


I0PBK1 A F948 


I0PBK2 A F951 


ISERR A FB1A 


KEYINT AOOFF 


LIST A F370 


LISTST A F396 


LOCK A 0001 


LP10S AFBAF 


LP2S AFBC3 


LSVCO A 0020 


MATCH AF4F3 


MODE AOOCE 


MOVEIT A F3C 


MSIZE A003E 


HSVCO A 0000 


Nl A 0000 


N2 A 0001 


NOBRK AF357 


NOMATC A F4CF 


NOOVF AF489 


N0RCVEAF38C 


NOTRANAFAAO 


NOTRDY A FCF4 


NRDISK A FCCD 


NRMSG AFCC5 


NTERDDAFB4A 


NTERWT AFB62 


NUHDSK A 0004 


NURCHK AFAF5 


0CW2 A00D8 


0CW3 A00D8 


0CW3A AOOOB 


OLDCHA AF363 


ONEHS AO0C8 


OPSPOT AFBFB 


ORS AFOO 


OUTRDY AF882 


PIC A00D8 


PORTIA A 00E4 


P0RT1B A00E5 


P0RT1CA00E6 


P0RT2AA00E8 


P0RT2BA00E9 


P0RT2C AOOEA 


PRINTM A F233 


PRTSTB A OOOE 


PT1CTL A00E7 


PT2CTL A OOEB 


PUNCH AF397 


RBDISK A FDBF 


RBIPTR A F364 


RBR A 0002 


RD8251 AOOEC 


RD8272 A 00F1 


RDHST AFA4F 


RDIN A FFO 


RDING AFBDF 


RDSST AFA52 


RDWAIT A FF70 


RDX351 A OOCO 


READ AF3F6 


READ2 AF406 


READER A F399 


READOP AF6C2 


RECAL AF8A3 


RECL A F8A9 


RINGSI A 001D 


RNGBUF AFF53 


ROMMSK A 0080 


RSFLAG AF6C1 


RSTUST A 0040 


RUNDSKAFDD6 


RUNSEC AFDD8 


RUNTRK AFDD7 


RWMQVE AF519 


RW0PERAF498 


SBX351 A OOF 


SCSMSK AOOCO 


SOBYTS A F944 


SECHSK A 0001 


SECSHF A 0001 


SECTOR A F5B1 


SECTRA AF3C2 


SEKHST AF6B8 


SELDSKAF3A2 


SENSD AF928 


SENSED A F924 


SENSEI AF8DF 


SETDMAAF3C5 


SETSEC AF3BD 


SETTRK A F3B8 


SGLMSTAOOF 


SNFALL AF99F 


SNIF A F99D 


SNIF1 A F9A9 


SNSDRV A0004 


SNSINT A 0008 


SNSLP AF8E4 


SPECFYA0003 


SPRBUF AFE80 


SRT A 0009 


STO AFDEF 


ST1 AFDFO 


ST2 AFDF1 


ST3 AFDF2 


ST8251 A OOED 


ST8272 A OOFO 


STACKB A F842 


STDBL AF3E3 


STILLO A FBCD 


STKT0PAF862 


STLNRDAFDD4 


STSNGLAF3CB 


STTRDY AF88F 


STX351 A 00C1 


TCOF AOOOC 


TCON AOOOD 


TMCP AOODF 


TRACK AF5B0 


TRANS AF577 


TRDY A 0001 


TRKSEK AF5B4 


TRNSIZ A FDE3 


TRUE AOOF 


TRYAGN AFB01 


TRYIT AFAE5 


TSTDNSAF9C2 


TSTRD1 A FA17 


TSTRDN A FA2C 


TSTRDY A FAOA 


TXBE A 0004 


UNACNT AF6BB 


UNADSKAF6BC 


UNASEC AF6BE 


UNATRK A F6B0 


UNLOCK A 0000 


WAITBT A F89C 


UBOOT AF2E4 


UBOOTE AF203 


UPDISK A FD15 


yPHSG A FOOD 


UR8251 AOOEC 


WR8272 A O0F1 


URALL A 0000 


URDIR A 0001 


HRITE AF41A 


WRITE A F42C 


HRTHST A FA47 


URTIN6 A FBE3 


WRTOUT AFFBO 


URTPR1 AFD4A 


HRTPRO AFD46 


URTSST A FA4A 


HRTYPEAF6C3 


WRUAL A 0002 


WRHAIT A F30 


URX351 A OOCO 


HTABIT A F89E 


HTCTLQ A F37E 


XREAD A 0006 


XRECALA0007 


XSEEK AOOOF 


XWITE A 0005 















ASSEMBLY COMPLETE, NO ERRORS 



0100 
0002 = 
0OOD = 
000A = 
F209 = 
F20C = 
FE80 = 



0100 118006 
0103 2180FE 
0106 0680 

0108 1A 

0109 77 
010A 13 
010B 23 
010C05 
010D C20801 

0110 21EE01 
0113 CDB901 



0116 211602 
0119 CDB901 
011C CDAD01 
01 IF FEOD 
0121 CAOOOO 

0124 329602 
0127 D641 
0129 DA1601 
012C FE02 
012E D21601 

0131 32E801 
0134 32E201 
0137 32ED01 



013A 214602 
013D CDB901 
0140 CDAD01 
0143 FE53 
0145 CA5501 
0148 FE44 
014A CA6F01 
014D FEOD 
014F CA1601 
0152 C33A01 



FORMAT FOR THE SBX-218 ON AN SBC-80/24. 

COPYRIGHT JAMES R. GRIER 

MARCH 20, 1981 

STATUS DISPLAY ADDED JULY 29, 1981 

REVISED FOR NEW BIOS 01-SEP-81 



/ 



foXMAT. FKN 



ORG 100H 

NUMDSK EQU 

CR EQU 

LF EQU 

CONIN EQU 

CONOUT EQU 

FRMAT EQU 



2 

13 

10 

0F209H 

0F20CH 

0FE80H 



i SPECIALIZED FORMATTING INSTRUCTION 



START: 
FIRST, MOVE THE FORMAT ROUTINE INTO ON-BOARD RAM. 
THE FORMAT ROUTINE (FORHATX. ASM) MUST BE ASSEMBLED AND LOADED INTO 
MEMORY WITH AN OFFSET OF 800H TO BRING ITS START FROM FE80 TO 680. 



MVFMT: 



LXI 
LXI 
MVI 

LDAX 

MOV 

INX 

INX 

OCR 

JNZ 

LXI 
CALL 



FORMAT: 



LXI 

CALL 

CALL 

CPI 

JZ 

STA 

SUI 

X 

CPI 

JNC 

STA 
STA 
STA 



CHOICE: 



LXI 

CALL 

CALL 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

JMP 



D.680H 

H,0FE80H 

B.80H 

D 

M,A 

D 

H 

B 

MVFMT 

H,SIGNON 
PRINT 



H,DSQUES 

PRINT 

ECHO 

CR 



RDYDRV 

'A' 

FORMAT 

NUMDSK 

FORMAT 

FDDIPB+1 
FSDIPB+1 
DISKX 



H.STQUES 

PRINT 

ECHO 

'S' 

SINGLE 

'D' 

DOUBLE 

CR 

FORMAT 

CHOICE 



i PRINT SIGNON MESSAGE 



; ASK WHICH DISK TO DO 



; GET INPUT 
; BOOT IF CR 



; SAVE FOR CONFIRMATION MESSAGE 

i LOOP IF < 'A' 

; CHECK FOR BEYOND SYSTEM CAPACITY 

i SETUP PROPER DRIVE FOR EITHER IOPB 

; ASK WHAT DENSITY 

; IF 'S', DO SINGLE DENSITY 

i IF 'D', DOUBLE DENSITY 

; IF CR, RESTART FORMAT 

; ANYTHING ELSE, TRY AGAIN 



REJECT 



; IF SINGLE DENSITY, FORMAT ALL 77 TRACKS AS SINGLE DENSITY 
SINGLE: 



0155 21B202 




LXI 


H.SING 




0158 CDC401 




CALL 


CHKRDY 




015B 21BE02 




LXI 


H, NUMBERS 




015E CDB901 




CALL 


PRINT 




0161 OEOO 


SLOOP: 


MVI 


CO 


i TRACK NUMBER 


0163 CD8C01 




CALL 


FSD 


i PERFORM FORMAT 


0166 79 




MOV 


A,C 




0167 FE4D 




CPI 


77 




0169 DA6301 




X 


SLOOP 


i LOOP FOR ALL TRACKS 


016C C31601 




JHP 


FORMAT 






; IF DOUBLE DENSITY, FORMAT TRACK AS SINGLE, ALL OTHERS DOUBLE 




DOUBLE: 








016F 21B802 




LXI 


H,DOUB 




0172 CDC401 




CALL 


CHKRDY 




0175 21BE02 




LXI 


H, NUMBERS 




0178 CDB901 




CALL 


PRINT 




017B0E00 




MVI 


CO 




017D CD8C01 


i 

DLOOP: 


CALL 


FSD 


; FORMAT TRACK AS SINGLE 


0180 CD9801 




CALL 


FDD 




0183 79 




MOV 


A,C 




0184 FE4D 




CPI 


77 




0186DA8001 




X 


DLOOP 


; LOOP FOR ALL TRACKS 


0189 C31601 




JMP 


FORMAT 






i 

i FORMAT IN SINGLE DENSITY. 






FSD: 








018C3AED01 




LDA 


DISKX 




018F 47 




MOV 


B,A 




0190 21E101 




LXI 


H.FSDIPB 


; POINT TO SINGLE DENSITY IOPB 


0193 1E00 




MVI 


E,0 


i SET N VALUE 


0195 C3A101 




JMP 


GOFORM 






; FORMAT IN DOUBLE DENSITY. 






FDD: 








0198 3AED01 




LDA 


DISKX 




019B 47 




MOV 


B,A 




019C 21E701 




LXI 


H,FDDIPB 


i POINT TO DOUBLE DENSITY IOPB 


019F 1E01 


i 
GOFORM 


MVI 


E,l 


; SET N VALUE 


01A1 CD80FE 




CALL 


FRMAT 


i CALL SINGLE TRACK FORMATTER. 


01A4 OC 




INR 


C 


; INCREMENT TRACK NUMBER. 


01A5 C5 




PUSH 


B 




01A6 0E46 




MVI 


C'F' 




01A8 CD0CF2 




CALL 


CONOUT 




01AB CI 




POP 


B 




01AC C9 




RET 







Ainjt fir\/\f*m 



i GET A CHARACTER, CONVERT LOWER TO UPPER, ECHO TO CONSOLE, AND RETURN DATA 
ECHO: 



01AD CD09F2 


CALL 


CONIN 


; GET CHARACTER 


01B0E65F 


ANI 


5FH 


; CONVERT LOWER CASE TO UPPER 


01B2F5 


PUSH 


PSH 


i SAVE 


01B3 4F 


MOV 


CA 





fVtfclfU IT 



JEJECT 



01B7 Fl 




POP 


PSW 




01B8C9 




RET 








i 

; PRINT STRING AT HL UNTIL NULL FOUND. 




PRINT: 








01B9 7E 




MOV 


A.M 




01BAB7 




ORA 


A 




01BBC8 




RZ 






01BC4F 




MOV 


C,A 




01BD CD0CF2 




CALL 


CONOUT 




01C0 23 




INX 


H 




01C1 C3B901 


I 

CHKRDY: 


JMP 


PRINT 






i MOVE IN APPROPRIATE DENSITY 




01C4 119B02 




LXI 


D.RDYFRM 




01C7 0606 


CKLP: 


MVI 


B,6 




01C9 7E 




MOV 


A.M 




01CA 12 




STAX 


D 




01CB 13 




INX 


D 




01CC23 




INX 


H 




01CD05 




OCR 


B 




01CE C2C901 




JNZ 


CKLP 




01D1 217E02 


J 


LXI 


H, READY 




01D4 CDB901 




CALL 


PRINT 


; PRINT COMPLETED MESSAGE 


01D7 CDAD01 




CALL 


ECHO 


; TEST FOR RESPONSE 


01DA FE59 




CPI 


'Y' 




01DCC8 




RZ 






01DD El 




POP 


H 




01DE C31601 




JMP 


FORMAT 


i POP STACK AND RESTART II 


J 

01E1 0D0O001A1BFSDIPB: 


DB 


0DH,0,0,1AH,1BH,0E5H 


01E7 4D00011A36FDDIPB: 


: DB 


4DH,0,1,1AH,36H,0E5H 



01ED00 



DISKX: DB 



01EE 4861727665SIGN0N: 
0216 0D0A456E74DSQUES: 
0246 0D0A576861STQUES: 
027E 0D0A526561READY: 
0296 0020617320RDYDRV: 
029B 5858585858RDYFRM: 
02B2 73696E676CSING: 
02B8 646F75626CD0UB: 



DB 'HARVEY FORMAT VI (REVISED 01-SEP-81)'.0 

DB CR.LF, 'ENTER DRIVE TO FORMAT (OR RETURN TO REBOOT): ',0 

DB CR.LF, 'WHAT DENSITY - SINGLE, DOUBLE, OR RET TO START OVER: ',0 

DB CR.LF, 'READY TO FORMAT DRIVE ' 

DB 0, ' AS ' 

DB 'XXXXXX DENSITY (Y/N)? ',0 

DB 'SINGLE' 

DB 'DOUBLE' 



NUMBERS: 

02BE ODOAODOA DB CR,LF,CR,LF 

02C2 2020202020 DB ' CURRENT TRACK', CR,LF 

02EF 3030303030 DB '00000000001 11111111 122222222223333333333' 

0317 3434343434 DB '4444444444555555555566666666667777777', CR.LF 

033E 3031323334 DB '0123456789012345678901234567890123456789' 

0366 3031323334 DB '0123456789012345678901234567890123456', CR,LF 

038D 00 DB 

; END 



COPYDISK FOR THE SBX-218 ON AN SBC-80/24. 

COPYRIGHT JAMES R. GRIER 

MARCH 19, 1981 

MAY 6, 1981 - EXTENDED AND COMMENTED 

MAY 24, 1981 - COPYDISK 

JUNE 23. 1981 - COPY WITH VERIFY 

JULY 21, 1981 - SCREEN DISPLAY AND AUTO-FORMAT 

SEPT 1, 1981 - REVISED FOR NEW BIOS V2. 

SEPT 2, 1981 - USES SNIFF ROUTINE TO DETERMINE SOURCE DENSITY 



cryvsK.PRN 



OlOO 


ORG 


100H 




0002 = 


NUMDSK 


EQU 


2 


OOOD = 


CR 


EQU 


13 


000A = 


LF 


EQU 


10 


F200 = 


BIOS 


EQU 


0F200H 


F209 = 


CONIN 


EQU 


BI0S + 09H 


F20C = 


CONOUT 


EQU 


BIOS + 0CH 


FFOO = 


DRDISK 


EQU 


OFFOOH 


FF06 = 


SNIFF 


EQU 


0FF06H 


FE80 = 


BIOFRM 


EQU 


0FE80H 



START: 



0100 210B03 


LXI 


HiSIGNON 


0103 CD9F02 


CALL 


PRINT 


0106 217103 


i 

LXI 


H,FMTQUE 


0109 CD9F02 


CALL 


PRINT 


010C CDB302 


CALL 


ECHO 


010FF5 


PUSH 


PSW 


0110 OEOO 


MVI 


CO 


0112 CD06FF 


CALL 


SNIFF 


0115 3E44 


MVI 


A,'D' 


0117 CA1C01 


JZ 


ISDBL 


011A3E53 


MVI 
ISDBL: 


A,'S' 


011C 321705 


STA 


DNSITY 


011F Fl 


POP 


PSW 


0120 FE59 


CPI 


'Y' 


0122 C28C01 


JNZ 

i 

REFORM: 


NOFMT 


0125 21DF03 


LXI 


H, NUMBERS 


0128 CD9F02 


CALL 


PRINT 


012B CDAA02 


CALL 


CRLF 




; NOW MOVE THE FORMAT ROUTINE 


012E 118006 


LXI 


D.680H 


0131 2180FE 


LXI 


H, BIOFRM 


0134 0680 


MVI 
MVFMT: 


B.80H 


0136 1A 


LDAX 


D 


0137 77 


MOV 


11, A 


0138 13 


INX 


D 


0139 23 


INX 


H 


013A 05 


DCR 


B 


013B C23601 


JNZ 


MVFMT 


013E 3A1705 


i 

LDA 


DNSITY 


0141 FE53 


CPI 


'S' 


mas rrTSArn 


.w 


nniiraF 



; PRINT SIGNON MESSAGE 

; CHECK IF FORMATTING DESIRED 

GET ANSWER 

SAVE 

SNIFF DRIVE FOR DENSITY 

SETUP FOR DOUBLE DENSITY 

ZERO FLAG IS SET IF DISK DOUBLE DENSITY 

IF NOT SET, ASSUME SINGLE 

; SAVE VALUE 

i RECOVER ANSWER 

; IF NOT Y, SKIP FORMATTING 



; PRINT THE HEADER 
INTO THE BUFFER SPACE IN BIOS 



0146 OEM 



; IF SINGLE DENSITY, FORMAT ALL 77 TRACKS AS SINGLE DENSITY 
SINGLE: 

CO > TRACK NUMBER 



MVI 



SLOOP: 



0148 CD6501 


CALL 


FSD 


i PERFORM FORMAT 


014B 79 


MOV 


A,C 




014C FE4D 


CPI 


77 




014E DA4801 


X 


SLOOP 


; LOOP FOR ALL Tl 


0151 C3B601 


JnP 


NOHCOPY 





; IF DOUBLE DENSITY, FORMAT TRACK AS SINGLE, ALL OTHERS DOUBLE 
DOUBLE: 



0154 OEOO 




MVI 


CO 




0156 CD6501 


i 
DLOOP: 


CALL 


FSD 


i FORMAT TRACK AS SINGLE 


0159 CD6D01 




CALL 


FDD ' 




015C79 




MOV 


A,C 




015D FE4D 




CPI 


77 




015F DA5901 




X 


DLOOP 


; LOOP FOR ALL TRACKS 


0162 C3B601 




JNP 


NOHCOPY 






i 

; FORMAT IN SINGLE DENSITY. 






FSD: 








0165 218001 




LXI 


H,FSDIPB 


; POINT TO SINGLE DENSITY IOPB 


0168 1E00 




MVI 


LO 


; SET N VALUE 


016A C37201 




JMP 


GOFORM 






i FORMAT IN DOUBLE DENSITY. 






FDD: 








016D 218601 




LXI 


H.FDDIPB 


; POINT TO DOUBLE DENSITY IOPB 


0170 1E01 


i 

60F0RM: 


MVI 


LI 


,- SET N VALUE 


0172 0601 




MVI 


B,l 


; DISK 1 


0174 CD80FE 




CALL 


BIOFRM 


; CALL SINGLE TRACK FORMATTER. 


0177 OC 




INR 


C 


i INCREMENT TRACK NUMBER. 


0178 C5 




PUSH 


B 




0179 0E46 




MVI 


C'F' 




017B CD0CF2 




CALL 


CONOUT 


i 


017EC1 




POP 


B 




017F C? 




RET 







0180 OD01001A1BFSDIPB: DB 
0186 4D01011A36FDDIPB: DB 



ODH,1,0,1AH,1BH,OE5H 
4DH,1,1,1AH,36H,0E5H 



NOFMT: 



018C 0E01 
018E CD06FF 
0191 0E44 
0193 CA9801 
0196 0E53 

0198 3A1705 
019B B9 
019C CAB001 

019F 21A603 
01A2 CD9F02 
01 as rm&co 



ISDDBL: 



MVI 


CI 


CALL 


SNIFF 


MVI 


CD' 


JZ 


ISDDBL 


MVI 


C'S' 


LDA 


DNSITY 


CMP 


C 


JZ 


DNSMATCH 


LXI 


H.NOMATCH 


CALL 


PRINT 


noil 


Fn-m 



CHECK DESTINATION 



01A8 FES? 


CPI 


'Y' 


01AA CA2501 


JZ 


REFORM 


01ADC30000 


JHP 

i 

DNSMATCH: 





OIBO 21DF03 


LXI 


H, NUMBERS 


01B3 CD9F02 


CALL 
NOWCOPY: 


PRINT 


01B6 CDAA02 


CALL 


CRLF 



01B9 3E00 



MVI 



A,0 



TRACK 1 



COPYLOOP: 



01BB 321605 


STA 


TRAK 




01BE 32D702 


STA 


LSIOPB+2 




01C1 32E002 


STA 


LDIOPB+2 




01C4 32E902 


STA 


SSIOPB+2 




01C7 32F202 


STA 


SDIOPB+2 




01CA32FB02 


STA 


CKSIPB+2 




01CD 320403 


STA 


CKDIPB+2 




01D0 AF 


i 

XRA 


A 




01D1 321805 


STA 


ERRCNT 




01D4 3A1705 


i 

LDA 


DNSITY 


; TEST DENSITY 


01D7FE53 


CPI 


'S' 




01D9CA4802 


JZ 


LDLSGL 


; JUMP IF SINGLE DENSITY DRIVE 


01DC 3A1605 


i 

LDA 


TRAK 




01DFFE00 


CPI 







01E1 CA4802 


JZ 


LDLSGL 


, ALWAYS SINGLE IF TRACK 




f 

> DOUBLE DENSITY LOAD 






DDLOAD: 






01E4 11DE02 


LXI 


D.LDIOPB 




01E7 01001A 


LXI 


B.1A00H 


; LOAD DISK I/O PARAMETERS 


01EA 210009 


LXI 


H.900H 




01EDCD00FF 


CALL 


DROISK 




01F0 OEOO 


1 

MVI 


CO 


> NUMBER OF SECTORS 


01F2 210009 


LXI 
DDD: 


H.900H 


; START OF MEMORY 


01F5 C5 


PUSH 


B 




01F6 79 


MOV 


AiC 




01F7 21FC04 


LXI 


H.TRNTBL 




01FA 0600 


MVI 


B,0 




01FC 09 


DAD 


B 




01FB7E 


MOV 


A,M 


, READ TRANSLATE TABLE 


01FE 32F402 


STA 


SDIOPB+4 




0201 57 


MOV 


D.A 




0202 1E00 


MVI 


E,0 




0204 210008 


LXI 


H.900H - 100H 




0207 19 


DAD 


D 




0208 11F002 


LXI 


D.SDIOPB 




020B 010001 


LXI 


B.0100H 




020ECD00FF 


CALL 


DRDISK 




0211 CI 


POP 


B 




0212 110001 


LXI 


D.100H 




0215 19 


DAD 


D 




0216 OC 


INR 


C 




0717 79 


mj 


A.r. 





0218 FE1A 




CPI 


26 




021A C2F501 




JNZ 


DDD 




021D 110203 


t 


LXI 


D.CKDIPB 




0220 01001A 




LXI 


B.1A00H 




0223 210029 




LXI 


H,2900H 


i VERIFY BUFFER 


0226 CDOOFF 




CALL 


DRDISK 


i REREAD WRITTEN DATA 


0229 110009 


f 


LXI 


D.900H 




022C 210029 




LXI 


H.2900H 




022F 01001A 


CHLP2: 


LXI 


B.1A00H 




0232 1A 




LDAX 


D 




0233 BE 




CUP 


n 




0234 CA3D02 




JZ 


LP0K2 




0237 CDC402 




CALL 


ERRCHK 




023A C3E401 


LP0K2: 


JnP 


DDLOAD 




023D 13 




INX 


D 




023E23 




INX 


H 




023F0B 




DCX 


B 




0240 79 




NOV 


A.C 




0241 BO 




ORA 


B 




0242 C23202 




JNZ 


CHLP2 




0245 C38802 




JHP 


LDNXT 






f 

; LOAD SINGLE DENSITY DISK 






LDLSGL: 








0248 11D502 




LXI 


D.LSIOPB 




024B 01801A 




LXI 


B.1A80H 


, DISK I/O PARAMETERS 


024E 210009 




LXI 


H.900H 




0251 CDOOFF 




CALL 


DRDISK 


, READ TRACK 


0254 11E702 


i 


LXI 


D.SSIOPB 




0257 01801A 




LXI 


B.1A80H 




025A 210009 




LXI 


H.900H 




025D CDOOFF 




CALL 


DRDISK 




0260 11F902 


i 


LXI 


D, CKSIPB 




0263 01801A 




LXI 


B,1A80H 




0266 210029 




LXI 


H.2900H 


; VERIFY BUFFER 


0269 CDOOF 




CALL 


DRDISK 


i REREAD WRITTEN DATA 


026C 110009 


i 


LXI 


D.900H 




026F 210029 




LXI 


H.2900H 




0272 01000D 


CHLPl: 


LXI 


B.0D00H 




0275 1A 




LDAX 


D 




0276 BE 




CHP 


n 




0277 CA8002 




JZ 


LP0K1 




027A CDC402 




CALL 


ERROi( 




027D C34802 


LP0K1: 


JHP 


LDLSGL 




0280 13 




INX 


D 




0281 23 




INX 


H 




0282 OB 




DCX 


B 




0283 79 




MOV 


A,C 




0284 BO 




ORA 


B 




0285 C27502 




JNZ 


CHLPl 





LDNXT: 



0288 0E2A 




MVI 


C,'*' 


028ACD0CF2 




CALL 


CONOUT 


028D 3A1605 




LDA 


TRAK 


0290 X 




INR 


A 


0291 FE4D 




CPI 


77 


0293 C2BB01 




JNZ 


COPYLOOP 


0296 21E804 


i 


LXI 


H.DONEMSG 


0299 CD9F02 




CALL 


PRINT 


029CC30000 


PRINT: 


JMP 







; PRINT STRING AT HL UNTIL NULL FOUND. 


029F7E 




MOV 


A,N 


02A0B7 




ORA 


A 


02A1 C8 




RZ 




02A2 4F 




MOV 


C,A 


02A3CD0CF2 




CALL 


CONOUT 


02A6 23 




INX 


H 


02A7 C39F02 


i 

CRLF: 


JHP 


PRINT 


02AA21B002 




LXI 


H, CRLFST 


02ADC39F02 




JHP 


PRINT 


02B0 0D0A00 


* 
CRLFST: 

i 

ECHO: 


DB 


CR,LF,0 


02B3CD09F2 




CALL 


CONIN 


02B6E65F 




ANI 


5FH 


02B8F5 




PUSH 


PSW 


02B9 4F 




MOV 


C,A 


02BACD0CF2 




CALL 


CONOUT 


02BDF1 




POP 


PSM 


02BEFE03 




CPI 


3 


02C0CA0000 




JZ 





02C3 C9 


i 

ERRCHK 


RET 




02C4 211805 




LXI 


H.ERRCNT 


02C7 34 




INR 


M 


02C8 7E 




MOV 


A,N 


02C9FE03 




CPI 


3 


02CBC0 




RNZ 




02CC21AD04 




LXI 


H.BOMB 


02CF CD9F02 




CALL 


PRINT 


02D2C30000 




JMP 






02D5 0600000001LSI0PB: 
02DE 4600000001LDI0PB: 

i 

02E7 0501000001SSI0PB: 
02F0 4501000001SDIOPB: 

02F9 0601000001CKSIPB: 
0302 4601000001CKDIPB: 



DB 



6,0,0,0,1,0,1AU7,80H 
46H,0,0,0,1,1,1AH.14,0FFH 



DB 


5,1,0,0,1,0,1AH,7,80H 


DB 


45H,1,0.0,1,1.1AH,14,0FFH 


DB 


6,1,0,0,1,0,1AH,7,80H 


DB 


46H.1,0,0.1,1,1AH.14,0FFH 



OPB FOR SD READ 
OPB FOR DD READ 

OPB FOR SD WRITE 
OPB FOR DD WRITE 

OPB TO VERIFY SD 
OPB TO VERIFY DD 



030B 0D0A486172SIGN0N: 
0336 0D0A4C6F61LDPR0C: 
0371 0D0A446F20FMTQUE: 
02AA 0n0A44657?Mll>!ATCH' 



DB CR, LF. 'HARVEY COPYDISK V2. 1 (REVISED 02-SEP-81 ) ' 

DB CR,LF,'LOAD SOURCE DISK IN DRIVE A, DESTINATION DISK IN DRIVE B',0 

DB CR.LF, 'DO YOU WISH TO FORMAT DESTINATION DISKETTE (Y/W? ',0 

flR ffi.l F, 'nFSTTNATTflN NOT SAMF nFNSTTY AS fimiRHF FORMAT JY/N»? '. 



NUMBERS: 



03DF ODOAODOA 
03E3 2020202020 
0410 3030303030 
0438 3434343434 
045F 3031323334 
0487 3031323334 



DBCR,LF,CR,LF 

DB ' CURRENT TRACK',CR,LF 

DB '0000000000111111111122222222223333333333' 

DB '4444444444555555555566666666667777777', CR.LF 

DB '0123456789012345678901234567890123456789' 

DB '0123456789012345678901234567890123456'i0 



04AD 0D0A43616EB0HB: DB CR,LF, 'CAN NOT VERIFY WRITTEN DATA ON DESTINATION. REBOOTING. . . ',0 

i 
04E8 0D0A446973D0NEMSG: DB CR, LF, 'DISK COPY DONE. . . ', 

TRNTBL: 
04FC 0103050709 DB 1, 3. 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25 
0509 020406080A DB 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26 



0516 


TRAK: DS 


1 


0517 


DNSITY: DS 


1 


0518 


ERRCNT: DS 


1 



0519 



END 



